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ABSTRACT 


This effort explores the design requirements for an expert translator 
to be used as an interface between present Computer Aided Design (CAD) 
and Computer Aided Manufacturing (CAM) systems. The translator’s purpose 
is to perform certain standards checks on the design data and pass 
assembly information as well as material requirements from CAD to CAM. 
An example translator was implemented for a simple one room house 
construction problem using the artificial intelligence language Prolog. 
This research is part of an effort to design a generic Computer Integrated 
Manufacturing System in which the design through manufacturing process 


is totally automated. 
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|. INTRODUCTION 


In the not too distant future, most factories will be using an 
integrated, computer aided, design and manufacturing system. There has 
already been much work performed in Computer Aided Design (CAD) and 
Computer Aided Manufacturing (CAM) techniques. Although definitions may 
vary slightly, Ness (Ref. 1] defines CAD and CAM as follows: 


Computer Aided Dee E application of computer technology to the 
севе of a product. This includes layouts, detail design, analysis, 
drafting and formal release of design data. 

Computer Aided Manufacturing is the application of computer 


technology to the fabrication, assembly and verification of a product 
that does not depend on and cannot productively use specific CAD data. 


Expanding on the above concepts, the CAD process consists of product 
Specification and design. CAD may allow for product simulation and 
performance analysis using computer models. Some pre-manufactur ing 
testing may also be performed. Product layouts may be generated. 
Increased interest recently has been focused on the use of interactive 
graphics with CAD; Beebu (Ref. 2] discusses this issue as applied to the 
construction of the Boeing 767 airplane. Interactive graphics systems 
allowed the designers of the Boeing 767 to interact with the design 
system and data in real time. In addition, some design changes were 
automatically propagated through the entire design relieving the designer 
of the update responsibility. Beeby (Ref. 2] cites as an example that 
changes made to the thickness of the spar chord in the wing of the Boeing 
767 produced automatic changes in related items such as ribs and clips 


without designer intervention. 


To expand on the CAM process, it is only necessary to look at some of 
the methods presently used in the manufacture of the Boeing 767. 
Computer aided tools locate, drill and fasten wing spars. Robots handle 
sanding and painting tasks. A self-propelled drilling unit travels through 
the interior of the plane drilling the more than eight thousand holes that 
are required for seat installation. 

However, it is the lack of integration of the design data produced by 
CAD into the manufacturing process handled by CAM that is our primary 
concern. The future goal is to build factories in which a network of 
computer systems is used to support product design, planning and 
manufacture and thus facilitate faster and more economical production 
(Ref. 3]. Current CAD and CAM systems are primarily independent and thus 
unable to effectively communicate with each other. One solution to this 
problem is to define a standard data format which will be accessible to 
both CAD and CAM. With a standardized data format, future CAD and CAM 
systems, which are built to use the format, will be able to communicate 
with each other freely. 

For example, Boeing Commercial Airplane Company (BCAC) has 
introduced a standard geometric data format as part of its CAD/CAM 
Integrated Information Network that has now become the framework for 
the Initial Graphics Exchange Specification (IGES) [Ref. 4]. More recently, 
the International Organization for Standardization (ISO) has been 
developing the Programmer's Hierarchical Interactive Graphics System 


(Phigs) standard which is based partially on the Graphical Kernal System 


(GKS). Both of these systems demonstrate the intense interest in forcing 
Standardization of data. 

Another solution to the communication problem between CAD and CAM 
is to design a communications interface that could be used with current 
CAD and CAM systems with little change in their structure. The advantage 
to this method is there is no massive redesign of CAD and CAM systems 
required to meet the requirements of a new standard data format. 

The purpose of this research is to define the software and data 
requirements that are necessary to integrate CAD and CAM into a fully 
compatible system by the use of such an interface. We shall call this a 
Computer Integrated Manufacturing System. The interface will consist of 
an expert system translator used to link the CAD output data and CAM 
input data. An example translator will be presented and discussed. This 
translator will be an enhanced version of the translator first presented in 
[Ref. 5]. 


Il. Background 


The Expert System Shell Translator design to be proposed in this paper 
will be based on the concepts of Computer Integrated Manufacturing (CIM) 
as described in [Ref. 5]. CI can be defined as the use of integrated 
computer systems to automate the manufacturing of an item starting with 
design and continuing through final production [Ref. 6]. Two portions of 
any future CIM computer system that are widely used today are Computer 
Aided Design (CAD) and Computer Aided Manufacturing (CAM). 

With the introduction of the minicomputer and the increasing power of 
the microcomputer, significant gains have been made in designer 
productivity and accurracy (Ref. 7]. In addition, newer CAD systems even 
allow simulation and perfomance analysis. Similar gains are being made in 
CAM with the advances in sensor technology, computer controlled robot 
devices and numerically controlled machines. Examples of numerically 
controlled machines are the tube bending digitizers that automatically 
measure and record hydraulic tube shapes and then perform multiple tube 
bends during the construction of the Boeing 767 (Ref. 2]. What is currently 
missing is a link between CAD and CAM to allow data transfer from one to 
the other thus allowing a completely automated factory. In an ideal 
factory, a product would be designed using CAD and then the design would 
automatically be transformed into a final product with very little human 
intervention. To even approach such an ideal, a communications path must 
be established between CAD and CAM. Figure 1 shows how an Expert 


System Shell Translator would be used to fill this gap. 


An example expert translator system was proposed and partially 
implemented in [Ref. 5] for the construction of a house. In this paper, we 
will enhance the translator to demonstrate its feasability using a more 
realistic product design. In addition, proposed data models for CAD output 


and CAM input as suggested in [Ref. 5] will be refined as necessary to 


facilitate the enhancement. 





CAD 
Output Data 
Expert System Shell Translator 

CAM 
Input Data 







Figure 1. Relationship of Expert System Shell Translator 
interface to CAD and CAM. 


There are at least two reasons for developing the technology to 
integrate current CAD and CAM systems rather than starting over with a 
fully integrated CIM system from scratch [Ref. 8]. First, low level 


manufacturing equipment will most likely be produced by a varied 


assortment of manufacturers and will require different hardware and 
software for control. Second, factories that are interested in increasing 
automation will be more likely to add to existing equipment to reduce 
costs. They cannot afford to keep up with the latest in technology and 
abandon their previous investments. Each of these component systems can 
be expected to have a wide variety of data management systems. 
Therefore, an easily adaptive CIM system structure is required to handle 
these differences. The translator provides that adaptability by providing 
the interface necessary to link the various CAD and CAM systems already 


in use. 


Ill. Data Output Specification for Computer Aided Design 


Figure 2 shows the necessary processing and generation of data 


performed by CAD. 







Conceptual Schema 


Data Model 
schema Data Design Data 


Figure 2. Processing of data dur ing Computer Aided Design. 






Using both the conceptual schema and the data model as input, CAD 
generates a design schema and the corresponding design data for the 
product to be manufactured. The conceptual schema provides the 
hierarchical part_of relationships while the data model acts as a quide 


for the CAD process. 


A. CONCEPTUAL SCHEMA 
Most of our discussion in this section will center on the proposed 


format for the design data but first lets examine a sample conceptual 


schema. Figure 3 is the conceptual schema for a generic house 


construction application. The conceptual schema provides CAD with the 
hierarchical part_of relationships between primitive types from which 
composite objects can be built. Each block in the conceptual schema 


represents a different primitive. 
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Figure 3. Conceptual Schema for a generic house. 


Each part, real or abstract, of a final product house would correspond 
to an instantiation of some primitive. Instantiation is said to occur when 
a primitive is copied and that copy refers to an actual part of a design in 
progress. For example, the living room and bedroom of a house are 


different instantiations of the same primitive room while their walls, 
floors and ceilings would correspond to the primitive face. There is 
actually a two-way relationship present. That is, if a particular face, 
face. A, is part of a room, room. 1, then room. .1 contains face. A. 
This dual relationship will be used later in the development of the design 
data. It Is also important to note that while a sub_cover must be part of 
some given face, it is not true that any instantiation of a face must 
contain a sub_cover. For example, consider a face consisting of unpainted 
brick attached to a wooden frame. Then the face would consist of a cover 
(the brick) and a frame. If painted, the brick becomes a sub_cover with 
the paint acting as a cover. 

Primitive types may be defined to any level of abstraction and become 
the building blocks for the final product design; thus, each conceptual 
schema is product dependent [Ref. 5). Those primitive types with dark 
borders in Figure 3 have named subtypes associated with them. A house 
may be subtype colonial or ranch for example. A room may have subtype 
bedroom or bathroom. The use of subtypes allows information about 
specific configurations of types to be stored for later use. They become a 
framework on which to build. For example, there are certain 
characteristics about a bathroom that makes it a bathroom. The subtype 
bathroom should capture that information which is true for all bathrooms 
for use in future designs. 

The CAD process, guided by the data model, records actual 
instantiations of the primitive types of the conceptual schema to form the 


design schema for the product of interest. A particular house design 


schema for which our example translator will be based is shown in 
Figure 4. 

The design schema for a product uses inheritance properties to infer 
some information about the primitive types using known information about 
related types. Inheritance refers to those cases where there is no need to 
specify different values for two different types that are related ina 
specific manner. One type simply inherits the information from the other 
type. Consider a car being manufactured. If the car has its color specified, 
then parts of the car such as fenders, doors and hood would inherit that 
color information. In addition, using both part_of and contains 
relationships, this information is easily passed both up and down the 
hierarchical structure. The conceptual schema provides the CAD/CAM 
translator information on how the different building blocks of the final 


product will fit together. 


B. PROTOTYPE 
A prototype can be thought of as a block of memory allocated to store 


data for any given type (primitives and subtypes). For each different type, 
a new prototype must be defined since the amount of memory storage 
required is type dependent. In this way, we can partition our data such 
that all the facts known about any particular type instantiation can be 
aggregated in much the same way modern programming techniques allow 
the partitioning of programs into modules [Ref. 9]. There exists a 
one-to-one correspondence between the set of all types and the set of all 


classes or prototypes [Ref. 5]. 
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Figure 4. Design Schema for House 1. 
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The set of all prototypes for any given conceptual schema will be 
designed to provide the interface between CAD and CAM with the 
necessary data to determine all required input for the CAM routines. Now 
consider the design of a prototype that will allow us to accomplish this 
task. Figure 5 is an example prototype for the primitive type cover listed 


in our conceptual schema presented ear lier. 


* => attribute may be inherited 
from face prototype 


#2 => attribute is optional 





моб | 


Figure 5. Prototype for primitive Cover. 


Each prototype has named slots which can be filled in for a particular 
instantiation of that prototype. These slots contain either relation or 
attribute data. The slot part of in Figure 5 is for relation data. It relates 
the cover to a particular face. The slot material type is for attribute 
data and is used to store material information about the cover. 

A blank prototype is also known as an intension or abstract specification. 
An intension is a meaning of a concept; that is, the prototype for a cover 
defines what it means to be a cover [Ref. 9]. With the appropriate slots 


filled in, it becomes an extension of the original prototype [Ref. 5]. An 


extension is a concept which corresponds to an actual item which has 
existed in the past, currently exists or will exist in the future [Ref. 9]. In 
the above illustrated prototype, the slots material type, height and 
depth fall under different rules for being filled in as Figure 5 notes. The 
attribute material type is required to be filled in while depth is 
optional. Those slots made optional were those that could have a 
nonsensical value under some circumstances. Consider the depth of a cover 
of paint. while some number could be given, it would not normally be 
relevant to the design and construction of a house. Therefore, its value is 
optional. Careful thought must be given to the use of optional entries 
during the design of the prototypes. The design and efficiency of the 
CAD/CAM interface may be dependent on the number of vacant slots 
allowed. For those cases where the slots may or may not be filled in, the 
interface will have to consider both cases. The number of vacant slots 
allowed can have an adverse effect on the number of rules used, the 
complexity of rules used, or both for the interface system. 

The attribute height shown in Figure 5 may be filled in or left blank 
with the value to be determined for input to the CAD/CAM interface using 
inheritance rules. Inheritance will be discussed in more depth in the next 
section. 

The format for storing data in a prototype’s slots should be kept 
simple to minimize the effect on the interface design. That is, value 
information for each slot should consist of only two parts at the most: 
actual value and units of measurement when required. The 


attribute/relation that specifies the slot may consist of several parts 


itself such as dimensions(height) but should be standard. Using this 
method, each prototype slot is bound to a specific value based on some 
Standard attribute or relation. For any given product, there will exist a 
set of attributes and relations for which each prototype will require a 
subset to define its required slots. Some attributes and relations will be 
universal to all products while others will be product specific. Consider, 
for example, property(material type). This would be required knowledge 
for all products. Now consider the attribute dimensions(height) in 
relation to spherical product. It has no meaning while the attribute 


dimensions(radius) does. 


# => attribute may be inherited 
from cover prototype 





Figure 6. Prototype for primitive Face filled in for instantiation 18061 1. 


Figure 6 is an example of a filled in prototype showing extension name, 


qualifying data and values. This prototype is for a particular face shown 


in the house design schema of Figure 4. It represents CAD's know ledge 
about facet. Note that one of the slots violates the rules presented 
above for simplicity of slot specification. This is the slot for the 
relationship contains. This type slot allows for a one-to-many 
relationship between a composite object and its components. This was 
done for two reasons. First, part_of already provides a simple relation 
between any two related parts that meets the requirements listed above. 
Second, the use of multi-values allows CAD to move quickly up and down 
the hierarchical design schema while conserving storage memory required 


for each prototype. 


C. SLOT INHERITANCE 
Now we consider in more detail how inheritance can be used to 


determine a slot's value. Inheritance refers to the property exhibited by 
two prototypes, which due to their relationship, possess slots which must 
take on the same value as the other's slot. 

Facet 1, whose prototype is shown in Figure 6, contains cover 1. 
Figure 7 is a filled in prototype for cover 1 based on known CAD design 
data. The primitives height and width for cover_t are not filled in and 
therefore their values must be determined using inheritance rules when 
determining the design data for input to the CAD/CAM interface. For this 
reason, the inheritance rules must be part of the prototype definition. 
Looking at Figure 7, the '*' indicates that the slot, if left blank, will 
inherit its value from the face which the cover is part of. Using this 
method, it is possible to specify an entire chain of primitives from which 


inheritance can take place. For example, the cover! prototype could have 
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specified that inheritance from the sub. cover beneath cover 1 would take 
priority over inheritance from face! f. In addition, if inheritance from 
sub. covers was allowed, then ordering of the sub. covers becomes a 
factor. Using this method for a cover with two sub. covers beneath it, we 
should first look for the slot value in the sub. cover directly beneath the 
cover, next check the second sub. cover, and lastly get the value from the 


appropriate face if not yet successful in finding a value. 


¥ => attribute may be inherited 
from face prototype 


## => attribute is optional 


++ finish color | 





Figure 7. Prototype for primitive Cover filled in for cover 1. 


Part of the CAD process is verifying that the correct values for those 


Slots left blank will be properly inherited for input to the translator. 


D. COORDINATE SYSTEM 
In order to specify location information in a prototype, it is imperative 


that the frame of reference be known by any process using that 


information. For most products, three frames of reference should suffice. 
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These are global or world, product and local coordinates . Figure 8 shows 
the relationship between each of these systems. 

Global or world coordinates relate to the real world. For example, the 
lines of the compass could be used with the Z axis perpendicular to the 
ground. The product coordinate system expresses location information 
relative to the product itself and is useful when locating parts on the 
product regardless of the absolute location of the parts relative to the 
earth. For large parts that are made up of many smaller parts, the local 
coordinate system may be used to express the location of the smaller 


parts relative to the large part. 





Local 
Coordinates 
Product 2 
| Coordinates 2 * 
axis E 1 , 
axis Pd X 
В axis 





World 
or Global 
Coordinates 


(0,0,0) x 
Figure 8. World, Product and Local coordinate system relationships. 


The use of product and local coordinate systems not only eliminates 


the need for absolute or global location coordinate information under most 


22 


circumstances but also provides automatic update of location information 
during design changes. For example, consider a face, facel, that contains 
a window, window 1. A design change is made that causes facel to be 
moved ten feet. If window I's location has been expressed relative to 
facel, then updating facel's location will automatically handle 
window! since the relative location for window 1 has not changed. 

In addition to specifying locations of various parts, other information 
about the part's position may be desired. If many flat parts are being used 
in a product, then the unit vector perpendicular to their surface can be 
used to gather additional information on how the parts will align in the 
final product. This vector is called a normal. Figure 9 shows an example 


of a normal. 






Normal to Surface À 
(length - 1) 


p Surface À 


Figure 9. Example of a normal vector to a surface. 


By definition, a normal is of length 1 unit, regardless of the units used. 


In this manner, each flat surface will have one unique normal associated 
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with it and each normal will specify one and only one surface. It is 
important to remember that the coordinate system used to express a 
normal will affect its value and therefore, for a normal to be useful, the 


coordinate system associated with that normal must be specified. 
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IV. Data Requirements for Computer Aided Manufacturing 


Figure 9 shows the data flow for a typical CAM process. The Material 
Requirements Planning Data consists of two parts, assembly instructions 
and a raw material requirements listing [Ref. 5]. Each of these will be 


discussed in this section. 


Material 
Requirements 
Planning Data 


Scheduling Date 





Figure 9. Computer Aided Manufacturing date flow [Ref. 5]. 


The purpose of the expert system translator will be to provide the 
assembly instructions and raw material requirements in such a format 


that will allow it to interface to an automated manufacturing system. 


A. ASSEMBLY 
What information is necessarily contained in the generated assembly 


instructions? That is product dependent. For example, when putting solder 


on an electrical connection, the type of solder used as well as the 
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temperature of application can be important. When gluing two components 
together, the type glue used, the pressure applied and the drying time 
become important. These are examples of information that may be 
generated by the CAM system normally but may also be overridden during 
CAD. The interface must be capable of passing this information through to 
the CAM process. 

In addition, the assembly instructions will provide sequencing 
information, the determination of which may require not only the 
conceptual schema for relation data, but also prototype data. This would 
be due to information contained in the prototype that affects priority such 
as space requirements for installation. Figure 10 is an example where this 


type of information is necessary. 


PART B 


$ = = о е е о е е е е 





---- «фф 


PartD=A+B+C 


Figure 10. Assembly consisting of parts A, B , and C. 


Part A, part B and part C assemble together to make part D. From the 


diagram it can be seen that an assembly sequence that attaches part B to 
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part C and then part A to the pair to form part D will not work since part 
B will interfere with part A unless sufficient slack exists in the fit to 
allow part A to slide in from the side. This type of information would not 
be contained in the conceptual schema. 

For some products, component location information during 
manufacturing is important. Consider an electrical circuit again. Locating 
components on a circuit board is a very complex problem which is not 
currently well supported by CAM and ignored during CAD [Ref. 10]. Well 
placed components makes efficient routing of interconnections a simple 


task and therefore desirable. 


B. MATERIALS 
The other portion of the Material Requirements Planning Data is the 


raw material requirements listing. Figure 11 illustrates some example 
output for raw materials, again from the house construction example. The 
names of each item corresponds to well known building materials. For 
example, hardboard32 and hardboard34 are both hardboard material but 
have different dimensions and costs. To calculate requirements for 
shinglel2 and brick88, effective areas were used. Shingles are 
overlapped during construction decreasing their effective area covered 
while bricks have concrete placed between them increasing their effective 
area. 

Based on dimensions of the product, cost per unit of raw materials, and 
design information about the raw materials of interest, the translator can 


generate the total amount of raw materials required and the total cost. 
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Rew Materials Report 
Cost Units Required 
$16 1 
$30 
$1737 347.514 
$3582 434 . 194 
6.73333 
hardboard32 1.54776 


har-dboard34 1.54722 
hardboard 78 0.604444 


hard wood9 75 
sheath. paper24 0.85027? 
shingle12 $2020 1616 
brick88 3673.2 


paint9 $8 1.031? 


painti? $4 0.551818 
paint21 $12 0.923095 


ЖӘКЕ АСЕ АО ЗЕ АКА ЖКО 
ж ж 
Total material cost is $13996 

* ж 
ЖХСХКХХХХЖЖЖХЖХЖЖЖЖХЖЖЖХХЖЖЖЖЖЖЖЖЖХЖХЖЖ 





Figure 11. Raw materials requirements listing. 
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In addition, information on allowed substitute materials could be kept 
in the database to take advantage of not only fluctuating cost, but also 
fluctuating inventory in order to get the most optimal cost product 
[Ref. 5]. For such a system to work successfully though, it must allow for 
CAD to specify a no-substitute condition when required. 

Using the Material Requirements Planning Data as input, CAM will 
generate the Scheduling Data necessary for final production. The 
Scheduling Data may then be used as input to an automated manufactur ing 


system. 
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V. Expert System Shell Translator 


The Expert System Shell Translator will act as the interface between 
CAD and CAM. Figure 12 demonstrates how the translator relates CAD data 
output to CAM required input. 


Schema Data Design Data 


Standards 
EXPERT SYSTEM dns 
Meta-Knowledge| 4 *LL TRANSLATOR 
Assembly 
Data 


Material 


Requirements 
Planning Data 





Figure 12. Expert System Shell Translator [Ref. 5]. 


Using the schema data and design data from CAD as input, the 
translator determines the necessary material requirements planning data 
to pass to CAM by making use of meta-knowledge and assembly data. A 
deduction-oriented rule-based system that starts with known facts and 
deduces new facts is said to exhibit forwards chaining [Ref. 11]. Forwards 
chaining has the ability to reach many conclusions based on the data which 
is what we desire for our translator. These new conclusions are then used 


to search for more facts. When no more conclusions are possible, forwards 
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chaining is complete. This is just the type structure that would be needed. 
In addition, the translator performs various standards checks on the CAD 
data to ensure its correctness. Correctness is used here to imply the data 
meets all known requirements. These requirements may be based on laws 


of physics, laws of government, or anything else deemed appropriate. 


A. META-KNOWLEDGE 
Meta-know ledge can be defined as knowledge about knowledge [Ref. 12]. 


It is used to quide the program in the selection of rules to apply. This 
know ledge may be either implicit or explicit. Explicit meta-knowledge is 
sometimes employed using meta-rules. Meta-rules are used to quide in the 
application of other rules. An example would be the case where two 
possible rules could be applied, rule one and rule two. A meta-rule might 
state that rule two should be tried prior to rule one for some specific 
conditions. Implicit meta-knowledge is more common but more difficult to 
handle when changes are made to the program. Figure 13 shows an example 
of implicit meta-knowledge that could be used in house design and 
manufacture. 

Explicit is the fact that rule number one passes control to rule number 
three and rule number three uses recursion to find and handle all faces 
except those facing upwards. Implicit is the fact that when rule three 


eventually fails, we backtrack to rule number two. 


B. ASSEMBLY DATA 
The assembly data must provide sequencing information which makes 


use of not only the conceptual schema for relational data, but also 
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prototype data. The conceptual schema gives information on how the 
components fit together, but the prototype data may give new insight to 
priorities for those cases where assembly may take several paths. 
Consider soldering two electrical components, a transistor and a resistor, 
to a circuit board. The transistor is much more heat sensitive than a 
resistor normally. Therefore, even though the schema would show no 
priority for ordering, data contained in the prototype for the transistor 
would show its heat limitations during soldering and would be used to 


ensure the resistor was placed on the circuit board first. 


asseable(L, face) :- 
assesbiet1(L, [1, face). 


assesble(L , face? :- 
senber CFace,L ?, 
normal -Z«XFace, 15, 
asser tzCoperation(Ccoaesent, 'bui ld floor as last step’,_,_)), 
contains(Face,L 15, 


asseable2CIL 11, IL 1), face). 


asseablei(L,L1,foce? :- 
menber (Face,L 5, 
notinorsal ZZ(Face, 155, 
delete(Face,L,L25, 
contains(Face, 13), 
озегі! 1512, (L3[L11, face>,!. 





Figure 13. Use of Meta-Know ledge. 


It is important to remember that the term components is being used 
here in an abstract way. Items such as solder, grease, oil and glue may all 
be considered components of a product. 

Figure 14 is a sample of two assembly rules written in Prolog and used 


for the example house construction project. Note that both rules make use 
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of schema data as well as design data to provide sequencing. The schema 
data allows access to the frame attached to the face currently under 
construction while design data, in this case normal information, is used 


to prioritize the frames. 









/* do foundation frame */ 
asseable(H, house? :- 
is-aCVface, face), 
trans_par tof<Yface,H), 
norsal 2(Vface, 15, 
contains<Yface,L>, 
asaber (Frane, L), 
is_a(Frane, frame), 
proper ty(Frame, mater ial_type , type), 
assertz(operation(Frane,asseablie,‘saaterial type: 


/* do frame perpendicular to ground */ 
asseable(H, house) :- 
is.acYface, face), 
trans_par tof <Yface,H>, 
noraal _Y(Yf ace, 0), 
погва і Z(Yface, O02, 
contains(Yface,L>, 
peaber (Frame, >, 
is_a(Franme, frame), 
proper ty(Frane, aaterial_type,Mtype), 
asser tz(operation(Franme,asseable, ‘saterial type: ‘,Mtype>>. 











* ,titype >>. 
















Figure 14. Assembly rules for house construction. 


In addition to sequencing instructions, assembly data can be used to 
determine component location. This is a very difficult problem in VLSI 
design and manufacture and is not well supported. The number of possible 
placements in many circuits makes an exhaustive search for the ideal 
placement impossible. In addition, there are many factors controlling 
placement including temperature limitations, position of edge connectors, 


position of busses, and speed restrictions which in turn restricts length 
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of interconnections [Ref. 10]. To find a recommended solution to such a 
problem, an expert system translator could make use of advanced search 
techniques currently employed in artificial intelligence programming such 
as depth-first, best-first or breadth-first. Because this is such a difficult 
problem, a system might allow a user to interact with it to aid in the 


search. 


C. STANDARDS DATA 
Standards data is used here in a broad sense and represents not only 


governmental standards required by Federal, State, local and Occupational 
Safety and Health (OSHA) regulations but also those standards, which if 
violated, will result in a product that may not function proper ly. 
Governmental requirements have always been with us and include federal, 
state and local regulations. But with the advent of CAD systems, new 
product designs have become increasingly complex. For instance, VLSI and 
multichip systems may be comprised of more than 250,000 gates [Ref. 13]. 
Due to this increased complexity, it has become increasingly harder to 
detect design errors prior to manufacture and shipment to customers. 
Figure 15 shows data put together at IBM which relates circuit errors 
remaining to rate of errors detected. 

It is important to note that there exists a point in time when there is 
a marked decrease in design error detection even though the number of 
errors left remains relatively high. Design requirements can be included in 
the standards data to reduce the number of errors. 

For example, in VLSI design, the translator could check for loading of 


components, power supplies to components and all leads proper ly 
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connected. An example of this would be verifying that the fanout of each 
integrated circuit had not been violated. The fanout of an integrated 
circuit is the number of gates that may be connected up to one pin of that 
integrated circuit without overloading the circuit and causing failure. This 
type of error could produce a product that functioned properly but had a 
shortened lifespan. It might only be found after numerous customer 
complaints and by that time the supply stock of the device could be 


extremely costly to replace. 
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OF 
ERRORS 
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TIME 
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ERRORS 
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SHIPPING POINT 


Figure 15. Error detection in YLSI circuit design (Ref. 7]. 


D. LANGUAGE OF CHOICE 
The terminology expert system has been used in our discussion on the 


CAD to CAM translator. True expert systems are written using artificial 


intelligence lanquages such as Prolog and belong to the class of artificial 
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intelligence applications known as knowledge-based systems [Ref. 5]. 


Figure 16 is an example of the structure of an expert system. 


DESIGN DATA 


KNOWLEDGE 


INFERENCE ENGINE 





ACTION 


Figure 16. An Expert System (Ref. 13) 


Prolog programs are actually rule-based where each rule represents an 
expert's knowledge of the problem. "Knowing" is reduced to being able to 
represent symbolically facts about the surrounding environment [Ref. 12]. 
Data supplied to the expert system is then treated as facts and used to 
deduce more facts. An interesting feature of some of these rules is their 
apparent link to rules of thumb; these rules are known as heuristics 
(Ref. 12]. 

What are the necessary qualities of an expert system? It must of 


course properly perform its assigned tasks. The problem is that what is 
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proper to one expert may not be proper to another. For example, consider 
two builders each constructing a house of similar design. While most of 
the assembly priorities for each one would be similar, some differences 
could exist. If both builders are experts in their field, who is more 
correct? The advantage of using artificial intelligence languages is the 
flexibility to allow manufacturers to set their own priorities by modifying 
the expert system rule base without any change to the CAD or CAM 
systems in use. 

Expert systems also have the ability to explain their path of reasoning, 
although in today’s systems the explanation is usually nothing more than a 
trace of rules sucessfully being fired. Arule is said to fire if enough 
facts are known so that the rule is now proven to be true. 

When actually constructing an expert system, it is also important that 
the code be partitioned according to the areas of concern. This is due to 
the fact that many experts, who would be expected to supply their 
knowledge to build the system, are limited in the breadth of their 
knowledge. Therefore, the code should be divided in such a way that each 
expert has responsibility for only that part pertaining to his area of 


expertise. 
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VI. Example Expert Shell Transla 


Appendix A is a diagram of a simple one room house which was used as 
a basis for this example expert shell translator. The prototypes for the 
house are based on the conceptual schema of Figure 3 and are shown in 
Appendix B. The actual prolog computer code for the translator is 
contained in Appendix C. Appendix D gives the translator output for the 


house construction example whose design is depicted in Appendix A. 





Figure 17. Implementation of Conceptual Schema. 


A. CAD DESIGN DATA 
Two of the computer code files in Appendix C are used to store data 


that would be expected as input to the translator from CAD. The schema 
file contains the schema data for the product of interest, in this case a 


one room house. Figure 17 shows some of the code from this file. 
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The last two rules in Figure 17 are used to specify transitivity in 
prolog. Thus, if piece_A is part of piece_B, and piece_B is part of 
piece. C, these rules would imply that piece. A must also be part of 
piece_C. The use of such rules precludes the necessity to explicitly 
declare these relationships for all possible cases. 

The design schema and other design data, which are derived from the 
filled in applicable prototype slots, are contained in the housel file. 
Figure 18 demonstrates the relationship between one sample prototype and 
its corresponding data in the housel file. 

It can be seen that the use of a language like prolog makes it easy to 


convert the prototype data to usable data for the translator. 


B. STANDARDS CHECKS 
The first series of operations performed on the input data bu the 


translator are those necessary to verify all applicable standards 
requirements are met. Figure 19 contains some of the standards from the 
standards file in Appendix C that were used for our one room house. 

Note that while the width and height standards for doors apply only to 
a door of type door!, the depth standard for doors and the window pane 
quality standard apply to all doors and windows respectively. This 
demonstrates the flexibility of the language and our system. 

IN addition to actual physical checks, two other types of standards data 
are also contained in the standards file. These are shown in Figure 20. 

The first is the comment for data. For example, consider the rule 
comment. for(frame,wood,framing); this rule relates any frame made 


out of a wood product to the comment framing. This allows data that can 
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/* facei */ 
is -aCfacel,face). 
dimensiont facet,height, 115, inches). 


dimensionCfacel,uidth,352, inches). 
HOUSE! m dimension(Cfacel,depth, 1, inches). 


containstfacel, lsub cover3,couver21). 
normal x<¢face1,0>. 

normal VCfacet,-1). 
normal_Z¢face1,0). 

par t_of¢facei,room1). 


PROTOTYPE === 





# => attribute may be inherited 
from the cover prototype 


Figure 18. Computer code derived from Prototype data. 
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ninig&umCdoor , door 1, width, 32, inches). 
mini mun(door, door 1, height, 6, feet). 
max imun( door. , door i,width,4,feet). 
max imumCdoor , door 1, hel ght, ?, feet». 


nainimumCdoor , .,depth,2, inches). 
max imunCdoor , _, depth, 3, inches). 





minimumCpone, ., qual itu,3). 


Figure 19. Standards checks. 


comment(imaasonnruy, approved methods must be used for building 
masonry walis when outside air temperature drops below 40 
degrees farenheit'). 

comment for(cover,brick,masonnru?. 

comment for(cover , concrete block , masonry). 

commen t_for (sub_cover , brick, masonry). 

commen t_ for (sub_cover , concrete. block , masonry >. 


comaent<( framing, grade arks aust be clearly visible on all 
framing mseabers for inspection’ >. 
comment for(frame,wood, framing). 


check. for (sub.cover , tar paper , [tar paper 1, tar .paper2, tar. paper 31). 





Figure 20. Comments on standards requirements. 
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only be verified during manufacturing to be output by the translator for 
the information of the CAM system. Sample output from Appendix D is 


shown in Figure 21. 


check for frame frame3 


grade marks aust be clearly visible on all framing 
menbers for inspection 


check for sub .cover sub. cover? 
check for cover: cover 


methods must be used for building masonry walls 
when outside air temperature drops below 40 degrees farenheit 





Figure 21. Translator output following application of stendards comments. 


The last data type contained in the standards file is tne check. for. Іп 
Figure 20, the rule check. for(sub. cover, tar. paper, [tar. paper, 
tar. paper2, tar. paper3]) is used to verify that all sub. covers made 
out of tar. paper use tar. paper, tar. paper2 or tar papers. In addition, 
those types of tar paper not used are listed as possible material 
substitutions. These lists of possible substitutions will become important 
again when determining raw material requirements later in this chapter. 
Figure 22 is example output data showing the use of this type standards 
check. 

Note that the design data currently has sub. cover 14 made from 
tar. paper2. Therefore, the other two types are listed as possible 
substitutes. For more realistic situations, substitutions of one material 


may affect other parts of the product. For example, consider a case where 
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several types of plastic have been listed as acceptable for the product 
piece in question. However, if a glue is being used on the plastic during 
the manufacturing process, different plastics may require different glues. 


Therefore, caution must be used in making substitutions. 


check for sub_cover sub_cover 14 


sub_cover sub_cover 14 meets requirements; allowed substitutes are: 


- tar_paper 1 
- tar_paper3 





Figure 22. Listing of substitutions by translator during standards checks. 


C. PRODUCT ASSEMBLY 
Once the standards checks have been completed, the translator must 


determine the product assembly sequence. To build our one room house, we 
would expect the frame to be erected first. Figure 23 is a listing of 
prolog rules used to generate the assembly steps for the frame foundation 
and walls. 

The first frame selected for assembly is the foundation. This frame is 
located bu finding a face which is part of the house being built and which 
also faces away from the ground. The trans. partof(Yface,H) will locate 
any face that is part of the house represented by the variable H. Then 
normal. Z(Yface,1) checks if the 2 component of the normal to the face 
of interest is equal to one. If so, then this face is a floor. Figure 24 


shows example orientations of normals for our one room house. 
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/* do foundation frame */ 
assembleCH,house? :- 
is a(VYface, face», 
irans.partof(V face, H5, 
normal-Z(C'face, 15, 
containsCVYVface,L 5, 
member (Frame, >, 
is_a(Frome, frame), 
proper ty(Frame, mater ial_type, Mtype >, 
assertzCoperation(Froame,assesble, material type: ‘© ,Mtyped). 


/* do frame perpendicular to ground */ 
assembletH, house) :- 
is_acYface, face), 
trans_partof<¥ face,H), 
noreal _Y(Yf ace, Û02, 
norea | _Z(Yf ace, Û), 
contains(Vface,L 5, 
menber (Frame ,L 5, 
is-a(Frame, frame), 
proper tuCFrome , materi al _type, type, 
assertzCoperat ionCFrame, assemble, material tupe: ',Mtuype»). 


assesbleCH,house) :- 
is_acY face, face), 
trans partof(? face, H5, 
normal. X(vYface,0»5, 
normal. 2(Vface,05, 
contains<Yface,L >, 
meaber (Frame ,L >, 
is_a(Frome, frame), 
proper tyCFrame , pater ial -tupe,HMtupe?, 
asser izCoperationCFrame,assesble, material type: ',Htupe)). 





Figure 23. House sample assembly rules for translator. 
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Any normal parallel to a coordinate axis will have that axis’ component 
equal to one in value if it points in the positive direction along the axis 
and equal to minus one if it points in the negative direction. For the 
example house, only the normals to the faces contained in the roof do not 
meet these requirements. It is not necessary that any face meet this 


requirement; it has been done only to simplify the example. 





Figure 24. Use of normal vectors for house construction. 


Once the floor frame is in place, the second and third rules in Figure 
23 locate the wall frames and add them to the assembly list. The second 
rule looks for faces with normals parallel to the x axis by specifying that 
the Y and Z components of the normal are equal to zero. Similarly, the 
third rule locates those faces parallel to the Y axis. In prolog, 
backtracking will force these rules to be tried until no more valid 


solutions are found. In this way, we locate all faces meeting the 
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specifications of each rule. Therefore, we only need be sure that each rule 


does indeed fully state all specifications of concern. 
In Figure 25, the rules which generate assembly data for the ceiling 


and roof are shown. 


/* ceiling frame */ 


trans-par tof (Y face,H5, 
noraal_z¢Yface,-1), 

contains<Yface,L)>, 

meaber (Frame, >, 

is-a(Frase, frase), 

proper tu(Frame, mater ial type, Mtupe?, 
assertz(operation<(Frame, assemble, ‘material type: ‘,Mtype>>. 


/* roof frame */ 
asseabie(H, house) :- 
is-a(Roof , rcof >, 
trans_par tof (Roof ,H>, 
is_acY face, face>, 
trans.par tof (Y face, Roof 5, 
contains<Yface,L), 
neaber (Frame, >, 
is_a(Frone, frome), 
proper ty<Frane, aaterial_type, Htype >, 
asser(z(operation(Frame,asseable, ‘material type: ‘,Mtype)>>. 





Figure 25. Assembly rules for roof and ceiling. 


The only notable difference from our previous rules in Figure 23 is that 
faces associated with the roof are located by using the contains relation 
associated with the roof. This is a better method than using normals since 
the normal vector for a roof face can vary so much depending on the 
design of the house. The only framing now left to be performed is for the 
windows and doors. Figure 26 lists the rules that handle these two cases. 
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Both rules again check only parts of the house of concern. For the door, 
we determine its material and the two faces to which it is attached and 
save this information in assembly data. The same is done for the window 
except now the sill is treated as its frame. Again, both rules allow 
backtracking to get all occurrences of windows and doors as will all the 


assembly rules. 


assenbie(H, house? :- 
is_a(Door , door), 
trans_par tof (Door, H), 
proper ty(Door, saterial_type,Mtype), 
assertz(operation(Door,asseable, ‘material type: ‘,Mtype)), 
get_faces(Door ,Face!,Face2>, 
assertz(operation<’*’,°- attach to: °,Facel,Face2)). 


asseabie(H, house) :- 
is_aCW, window), 
irans..par tof CH, H5, 
containsCH,L), 
senber(Si1l,L), 
is-acSill,sill», 
assertz(Coperation<(Si!!,asseable, ‘window sill for: °,W)), 
get_faces(W,Face!,Face2), 
asserizCoperationC' ','- attach to: ',Facat,Face2)). 





Figure 26. Assembly rules for windows end doors. 


With all the framing in place, the faces must now be constructed. 
Figure 27 gives the code to handle this. Note that first the exterior and 
roof are performed, and then the interior room itself. For each area, the 
contains relation is used to get a list of all parts, including faces, of 
each and the information is passed to an assemble(L,face) routine to 
erect only the faces. This ís actually a series of routines that use both 
backtracking and recursion to determine the assembly data. Figure 28 


gives the routines that start the process. 
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assesbletH, house) :- 
is_acE,exterior >, 
trans_par tof(E,H), 
contains(E,L ), 
assembletcL , face?. 


assembleCH,house) :- 
is -acR,roof 5, 


irons. par tof B, H5, 
contains(R,L 5, 
assemble«L, face». 
assemble<«H, house) :- 
is_acR,room), 
irans.par tof (B, H5, 
contains«R,L), 
assemble (L, face>. 





Figure 2?. Assembly rules for house faces. 


assemble (L, face) :- 
assesblei(L,[), face». 


assembletL, face) :- 
meaber (Face ,L), 
norajal_z(Face, 12, 
assertz(operationtcomment, ‘build floor as last step',_,_>), 
contains<Face,Lti), 
assesmbie2€C(L11, IL11, face). 


assemble 1tL,L 1, face? :- 
nenberCFace,L), 
notCinorsal ZKFace, 12), 
delete<Face,L,L2), 
contains<Face,L3), 
assemble1(L2, IL31L 1], face», ! . 


assesmbleiCL,L 1, face? :- 
assemble2(L 1,L 1, face»5,! . 





Figure 28. Assembly rules to prioritize and obtain face data. 
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The first and second rules in the list handle two different cases, 
non-floors and floors respectively. Any face pointing directly upward is 
considered a floor, of which, for our simple example, there is only one. 
The first rule takes precedence over the second rule and calls the third 
rule in Figure 28. The third rule simply finds all faces which are part of 
the area of concern but are not facing upward. Looking at the left side of 
the third rule, assemblel(L,L1,face), L is the set of parts determined 
using the contains relationship earlier and L1 is a set which we will 
construct. L1 is initialized to empty when the first rule calls the third 
rule. When the third rule finds a face meeting its requirements, the 
contains relation is again used to determine the parts of the face. This 
set of parts is added to L1 and assemblel recursivelu calls itself 
looking for more faces. When none are found, we fall through to the fourth 
rule which calls assemble2. The ! symbol at the end of the assemblel 
rules is there to prevent backtracking into them. We may only proceed 
forward into these rules. Backtracking is not necessary since we exit 
these rules only when all faces meeting our specifications are found. 

Looking again at the second rule in Figure 28, we put only one face in 
the list at a time and backtracking is necessary in the case where there is 
more than one possible floor face. This may or may not be desirable 
depending on the house design. For the other faces though, a list of all 
faces in the area of concern is created using recursion to allow a search 
for common building materials to better organize the assembly data. 

Figure 29 shows the rest of the routines necessary to complete the 


face assemblies. Note that assemble2 will recursively call itself until 
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assemble2(Ful IL ,L, face? :- 
member (Foce,L >, 
delete(Face,L,L 1), 
menbenr(| tea, Face?, 
is_aCl tem, sub_cover ), 
proper tuyCl tem, mater ial _tupe ,Mtype), 
operation<cy, _,_, Mtype >, 
member CFacet,Ful IL, 
member (V Расе 1), 
assertz(operation(|ltem,assemble, ‘material type: ',Mtupe»5, 
deleteC item, Face, Face2), 
assemble2(Full_L, (Face2/L11, face>,!. 


assesble2¢(Full_L,L, face) :- 
member (Face,L >, 
delete(Face,L,L 15, 
menber (| tea, Face?, 
is_acl tem, sub_cover ), 
proper ty(l tem, aaterial_type, MtypeD, 
assertzCoperation(l tem,assemble, ‘material type: °*,Mtype>>, 
delete l tem,Face,Facel>, 
asseable2(Full_L.(FacellLil.face>.!. 


asseable2(Full_L,L,face> :- 
meaber (Face ,L >, 
delete(Face,L,L1), 
meaber (| tem, Face), 
is_aC item, cover), 
proper tut | tem, mater ial type, Mtype), 
notCliquid(Mtupe,paint, , 2, 2, 5, 222, 
operat ionCV, _,_ ,Mtype), 
meaber (Face 1,Full_L), 
meaber (Y, Face 1), 
assertz(operation<(|ltem,assemble, material type: ‘,Mtyupe>), 
delete(l tem, Face,Face2), 
assemble2CFul IL, tFace2|L 11, face),! . 


assemble2GFul ILL,L, face» :- 
peaber(Face,L >, 
delete(CFace,L,L 15, 
neaber ( | tem, Face), 
is_aCl tem, cover), 
proper ty< | tem, mater ial_tyupe, Mtype >, 
notCliquid(Mtyupe, paint,_,_,-,-,-)), 
assertzCoperation( | tem, assemble, ‘material type: ‘,Mtype)), 
delete<l tem, Face,Facet), 
assemble2(Full_L, (FaceilLil, face),!. 





asseable2(Full_L,L, face). 


Figure 29. Assembly rules to get list of covers and sub. covers. 
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there are no face parts left. It then falls through to the last rule which 
succeeds and thus exits. Again, no backtracking is allowed or necessary. 

The first two rules in Figure 29 search for all sub_covers letting 
those sub_covers made up of material already used in the area of concern 
take priority over material not yet used. This is accomplished by 
searching through all the current operation predicates looking at all 
sub_covers already asserted that used the same material. If a sub_cover 
iS found, then a search is performed over the list of all sub_covers in the 
area of concern to attempt a match. If a match is found, then that 
material has already been used and it will take priority. If no match is 
found, then the next sub_cover in the next face is listed in the assembly 
data. 

The third and fourth rules provide a similar function for the covers 
except that covers made from paint are not yet allowed to be listed. The 
painting will be performed at the end of the house construction to prevent 
damage to the finish. 

The house is now close to completion. The window panes are inserted 
into place, the windows and doors are painted, and the doors are installed 
using the appropriate doorknobs and hinges. Now is the time to complete 
the painting of the faces that was previously skipped over. Figure 30 
shows the rules that handle this. 

Note that first the roof is painted, then the exterior and then last we 
paint any rooms. The paint. face routines are similar to what we have 
already seen. First, the ceiling, if one exists in the area currently being 


taken care of, is painted. Then the walls are painted and next the floor is 
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painted. Any face left over is painted at the end. This handles slanted 
surfaces such as the faces of the roof. The one room house is now fully 


constructed. 


assesbie(H, house? :- 
is.aCR,roof >, 
irans-par tof CB, H5, 
containsCR,L 5, 
paint.face(L). 


asseabie(H, house) :- 
is-a(E,exter ior), 
trans_par tof(E,H), 
contains<E,L)>, 
paint—face cL >. 


containg<(R,L>, 
paint -face(L). 





Figure 50. Assembly rules to generate paint data. 


D. RAW MATERIALS LISTING 
With the assembly data finished, the translator must now determine 


the raw material requirements to build the house. It does this by calling 
on the raw. materials. needed rules. All the rules work in much the 
same manner. They first determine what extension is being considered, 
then the material of concern associated with this extension, and last the 
dimensions of this extension or area. All dimensions and areas are 
converted to a common unit of measurement prior to calculations. 

Those parts of the house associated with a face extension such as 


cover and sub_cover call a routine get_area to determine the surface 
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area involved. This special routine is necessary since faces may have 
areas such as doors, windows and openings which subtract from the total 
area of the face to be covered. This is handled by calculating a negative 
area for each face to be subtracted out prior to material requirements 
calculations. This negative area is then asserted as a fact for each face 
prior to actual entry into the raw- materials. needed routines. An 


example calculation routine is shown in Figure 31. 


row moterials.needed : 
is a(Extens, г 7-9 
dimens ionCExtens,, depth, Th, Thuni ts2, 
proper ty(CExtens , pater iai _tupe, Material ), 
pater iai (later ial , J, Ht, Htuni ts, Hd, duni ts, Dp, Dpuni ts, 


р ==) == Sami 


, Cost), 
motch(Ht, Htunits, Hd, duni ts, Dp, Dpuni ts, Th, Thuni ts, Rc Ht, 


Unitst,Rict Hd, Uni ts2), 
get orea(Extens. frea, Uni ts), 
corwert (Ac tHt, Uni ts1,ActHt2, Units), 
convert (Ac t_Hd, Uni ts2, Act Hd2, Units >, 
NuaUnits is (Area / (ñct_Ht2 * Act.Wd2>), 
Tot Cost is (hm lhits * Cost), 
add_nateri al (Material , hum Uni ts, Tot.Cost?, fail. 





Figure 31. Example mater ial calculations for e sub. cover. 


One aspect of how the above example works not yet mentioned is the 
call to match. This rule attempts to find a match between the dimensions 
of the material to be used and the thickness of the sub_cover within a 
tolerance band. This is then used to determine the orientation of the 
material within the sub. cover. For example, if a board, measuring two 
inches by four inches by four feet, is used to build a sub. cover which is 
four inches thick, then the two inch dimension would be used for area 


calculations. This type of check is necessary since the dimensions height, 
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width and depth are based on the view of the person determining the 
values. 

Once the units of material required and cost are determined, these 
values are added to the total by calling add. material. This rule first 
checks for any previous data on this material. If some is found, then a 
new total is calculated and saved. Otherwise, a new fact on the material 
of concern is created and saved. 

The only other unusual calculation performed during the material 
calculations is the one to determine the frame requirements along the 
center of the roof, between the roof and the ceiling. We need the height of 
the roof above the ceiling to make this calculation. This is easy to do 
though since the normal vectors for the roof faces are known. It turns out 
that each component of the normal is equal to the cosine of the angle 
created by the intersection of a line parallel to that component’s axis and 
the plane containing the other two axis [Ref. 14]. Figure 32 demonstrates 
this concept. In Figure 32, the Z component of the normal vector is equal 
to the cosine of the angle created by the intersection of the normal and 
the plane containing the X and Y axis. With this fact, we can calculate the 
angle of intersection, Beta, of the roof and the house. Using the 
dimensions of the roof faces, it is now possible to determine the height of 
the roof above the ceiling since sin(Beta) is equal to the height of the 
roof above the ceiling divided by the length of the roof face. 

Once the amount of materials required and their costs have been 


determined, a Raw Materials Report is output. The report lists units 
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required for each material item and that item’s cost. Following the list of 


individual items is a total cost. Figure 11 gave a listing of this output. 


distance along X- Y plane is equal to 
cos B for a normal vector U' 





Figure 32. Distance of a normal vector along a plane. 


After the initial Raw Materials Report, the example translator 
examines possible material substitutions reported during the standards 
checks and makes each substitution, one at a time, to generate a new 
report. Figure 33 is an example of a modified Raw Materials Report output 
by the translator. It shows the cost for parts when sub_cover 14 is made 


out of tar. paper in place of tar. paper2. 


оэ 


Raw Materials Report 
Cost Units Required 
$16 
$30 
$1737 
$420 
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sheath_paper 24 0.95027? 


shingle12 1616 
brick88 3673.2 
paints 1.031? 
painti? 0.551818 
paint21 0.923095 


Total material cost is $14079 





Figure 33. Raw Materials Report with substitution. 
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IV. Conclusions and Recommendations 


A. CONCLUSIONS 

The goals of this research were to determine the design requirements 
for a generic CAD to CAM translator, design and implement a CAD to CAM 
translator for a particular product and in the process determine data 
requirements for CAD output and CAM input. 

A conceptual schema is a useful tool with which to model the product 
to be constructed. A simple hierarchical structure for the conceptual 
schema results in a design schema in which the translator can easily move 
from part to part, whether the part is abstract or real. Prototypes provide 
an ideal abstract model of the product design data to be used as input to 
the translator. 

Artificial intelligence (AI) oriented languages such as Prolog can 
readily use prototype structured data, even using slot inheritance to fill in 
unspecified values. In addition, many search methods have been designed 
and implemented using Al methods and they can provide powerful solutions 
to difficult problems such as the positioning of integrated circuits on an 
electronic circuit board. Their two drawbacks, when compared to other 
languages currently in use today are speed and availability. This is 
currently being remedied with the recent releases of affordable compiled 
versions of artificial intelligence languages designed for 
micro-computers. 

The translator is capable of performing certain standards checks on the 


design data, passing assembly information through to CAM and also 
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material requirements. The translator can also pass information that is 
useful to CAM at the time of production but cannot be verified prior to 
actual product construction such as temperature specifications. In 

addition, material substitutions can be recommended. Using Al's search 
techniques, the translator can search for the best material combination 


while at the same time checking for the effects of material substitution. 


B. RECOMMENDATIONS 
The next step in this research is to use an actual operating CAD system 


to generate the design data and schema data for input to an expert 
translator. The test products designed by that CAD system should be ones 
for which there exists a product CAM system for additional research. 
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APPENDIX C 


/* Interface File */ 


start is 
not (begin_stds_check ), 
not(begin_operations >, 
not(set_neg_oarea ), 
not (rae_ma ter ials_needed), 
not(materials_report), 
not(repor t_subs t). 


begin._stds_check :- is_acExtens, Intens), 
write’ check for ‘),eritecintens) writet’ ‘),writecExtens),ni,ni, 
check (Extens, Intens), fail. 


check (Extens, Intens) :- 
proper ty(Extens, material_type, Material), 
material (Material ,Spec_Mat,_,_,-,-,-,-,-,-,-,-,—), 
coament_for Cintens ,Spec_Mat,Class >, 
comment(Class, Comment ?, 
eritec' D, writeCComment ?,nl, nl. 


check(Extens, Intens) :- 
proper ty¢Extens , mater ial_type, Material >, 
naterial (Material ,Spec_Mat,_,_,-,-,-,-,-,-,-,-,—), 
check_for< Intens ,Spec_ttat, Class), 
peaber (Material ,Class), 
eritecC' '3,uriteCIntens»,write(' '),w'ite(Extens), 
write(’ meets requirements; allowed substitutes are:'),ni,nl, 
aeaber (Other _Nat,Class), 
not(Other_Mat = Material), 
write’ = "J, wri tecOtherttat),ni,ni, 
asser izCsubsti tuteCExtens , Other at 55. 


check (Extens, Intens) :- 
proper tyCEx tens , mater i al _type , Hater ial 2, 
aater ialCater ial , Spec Hat, 2, 2, و ر ر ر ر ر‎ 5 5 9, 
check for & Intens, Spec. at, Class), 
not(aember (Material ,Class)>, 
write ‘J, mriteCintens>, write’ "O,write(Extens?, 
writeC' does not meat requirements; allowed substitutes are:'),ni,ni, 
nember COther at, Class», 
eritec' - '),erite(OtherMat),ni,ni, 
asser tz(subst i tuteCExtens , Other. Hat 55. 
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check (Extens,door) :- 
dimensionCExtens, Dimension, Z,Uni ts), 
mini mum( door, Extens, Di mens i on, X, Uni tx, 
eaxi mumatdoor,Extens Dimension, Y,Uni ty), 
conver t(X, Uni tx, Min, Units), 
conver tCV Uni ty, Max, Units), 
check_s tandards (door, Extens , Dimension, 2Z,Min, tax). 


check(Extens,pane? :- 
proper tyCExtens , qual i ty, Ualue), 
ninimunCpane,Extens , qual i ty, Min), 
check standards (pana , Extens , Ualua, Hin). 


check_standards( intens, Extens, Dimension, Value, Min, Max?) :- 
not<(Hin > Value), not(Value > Max), 
write’ ‘J writeCiIntens), writet’ ‘) wri teCExtens), 
write(’ passed - ‘),erite(Dimension),ni,ni,!. 


check. s tandards C |ntens , Extens , Dimension, Ualue, in, ax? :- 
Hin > Value, 
шті кес” ‘),writeCintens>,(° °), eri te(Extens), 
writec’ failed minimum - '), 
seritetCDimension2,nl,nl,!. 


checks tandardsCIntens , Extens, Di mens ion, Ualue, Hin, Pax? :- 
Ualue » Max, 
ві бес" ‘), witeCintens), erite(’ '),w'ite(Extens), 
eriteC' failed maximum - `), 
write<Dimension>,ni,ni,!. 


checks tandards Cpane , Extens , Ualue, Hin? :- 
notlMin > Value), 
write’ '2,uriteC'pane °*),eriteCExtens), 
writec’ passed quality check’), ni,ni,!. 


check standar.dsCIpane , Extens , Ualue, Tin? :- 
Hin > Value, 
part ofCKExtens ,Mindos?, 
is-alHindow, window), 
uri te °), eri tel pane '),w'ite(Extens), 
erite¢’ failed minimum quality check'),nl, 
writed’ - part of ‘), eriteCWindos),ni,nl,!. 


begin_operations :~ 
is_a(H, house), 
not(do_assembi yCH)), 
notCoperat ions. report H5), 
fail. 


do.assembluyC(H) :- assesbleCH, house), fail. 
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operationsreport(H) :- 


nini, 
әгі te ( к СОК ыс КАО ОККА kiak" ) j) | 
writec'* *'),nl, 


write’ Production Sequence Report for °), 

wr iteCH5,nl,nl, 

print. stuleCH», 

write('* ж') пі, 

Ur i LEC ° чоо оов ' 5 n] np td, 
operat ionCExtens , Function, fit tr ibutet,Rttribute2), 

print operat ion(CExtens , Function, Rittributet,Rttribute2), 

fail. 


print operationCcomment,Comment, |, D :- 
пі, 
әгі бе” ibaiak ) | 
writec’* *'), пі, 
erite(' comment : '5, 
wer i teCComment >, 
пі, 
eritec'* *'5,nl, 
ur i еб ааа  ) n Ent, t. 


print operation(cExtens Attribute l, Attribute2 Attributes) :- 
writecExtens), 
nameCExtens,L 15, 
lengthIL 1, N15, 
tob( 15 - N15, 
wr^ite(Rttributet5, 
get_nome_len (Attribute !,N2), 
tabciS - H2», 
wr itetíRattribute2), 
get. name .lentfit tr ibute2,H35, 
tabC1? - N35, 
erite(iRttribute3)2,nl,!. 


get. name len(Home,Len? :- 
number (Name ) , 
notCinteger (Name )), 
nome (Nome ,L 1), 
length(L 1, H1), 
Len is CNI - 4),!. 


gei name .lenCNome Len? :- 


name (Name ,L 1), 
length<{Li,Lend,!. 
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print.stuleCH) :- 
proper ty(H, subtype, Hstyle), 
write(" - house style is '2, 
write(Hstyle), ni, 
eritec’ and consists of `), 
contains(H,L >, 
writeCLo ni,!. 


printstyle tH). 
/* routines to calculate surface area of faces taken up by */ 
/* doors, windows, openings, and connect i ons */ 
set neg-area :- 

is_acExtens, face), 


set .neg-area2(Extens, L),0, feet?5, fail. 


set neg-area2C(CFace,L , Brea, Uni ts) :- 
face(Extens ,Face), 
not(meaber (Extens,L >>, 
is_acExtens , window), 
dimension(Extens,height,Ht,Htuni ts), 
dimensionCExtens , width, Hd, Hduni ts), 
corver t CHt ,Htuni ts, Hew Ht , Uni ts), 
conver tGdd , Hdunits, New. Hd, Uni ts), 
NewArea is (Area + (NewHt * Нее На) ), 
set_neg_orea2(Face, (Extens|L),NewArea,Units),!. 


set neg.area2(Face,L , Brea, Uni ts :- 
face(Extens , Face), 
not (member CExtens ,L >), 
is-aCExtens , door >, 
dimensionCExtens ,height,Ht , Htuni ts), 
dimension(Extens , width, Hd, Hduni t5), 
conver t(Ht ,Htumi ts , Nem Ht ,Uni ts), 
conver tCGJd , Hduni ts, Heg Hd Uni ts), 
Mew frea is (Area + (Nes Ht * Neg. Jd»), 
set neg area2(Face, [Extens|L J, New. Rirea Uni ts2,! . 


set. neg. area2CFace,L,Rrea, Uni ts) :- 
faceCExtens , Face), 
notisenmber CExtens,L 55, 
is aCExtens , connection), 
geome try(Extens, rectangle), 
dimension(Extens ,haight,Ht,Htumits), 
dimension(Extens , width,Hd,Hduni ts), 
conver tCHt , Htuni ts New Ht, Units), 
conver t CHd , Hdun i ts, Heg. Hd , Uni ts 2, 
Nem firea is (Rrea * (Nes Ht * New. Hd»), 
set. neg area2(Face, IExtens|LJ, Hee firea, Uni ts), ! . 
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set. neg-area2(Face,L ,Rirea, Uni ts) :- 
face(Extens , Face), 
notIvember CExtens ,L 25, 
isacExtens, connection), 
qeore try(Ex tens, square >, 
dimension(CExtens ,height,Ht,Htunits), 
conver tCHt, Htuni ts, New_Ht, Units), 
Nes Rrea is (Rrea * (New. Ht * New Ht)), 
set. neg area2(Face, IExtens |L] , Hee. Rrea, Uni ts), ! . 


set. neg-area2CFace,L ,firea, Units) :- 
face(Extens ,Face), 
not (member (Ex tens ,b 2), 
is_acExtens, connection), 
geome try(Extens , square), 
dimensioncExtens ,width,Wd, Wdunits), 
conver t (Wd, Wduni ts, New_Hd, Uni ts>, 
NewArea is (Rrea + (New * New_ld)), 
set_neg_area2(Face, [Extens|L],New_Area,Units>,!. 


set neg area2(Face,L,firea, Uni ts) :- 
face(Extens ,Face), 
not (member CExtens,L >), 
is-aCExtens , connection), 
geometruCExtens, circle», 
dimens ionCExtens , radius, Rd, Rduni ts >, 
conver t Rd, Rduni ts, Hew. Rid ,Uni ts5, 
Pi is 3.14159, 
Мет Ягеа іс «Нгеа + (Pi + Hew Rd * Hes Rd»), 
set neg. area2(Face, [Extens |L ], Nes firea,Uni ts5,! . 


set neg.area2(Face,L , irea, Units) :- 
faceCExtens ,Face?, 
not Cmeaber (Extens ‚1. )), 
1s_acEx tens, opening>, 
geome try(Ex tens, rectangle), 
dimension<Extens, height,Ht,Htunits), 
dimensioncExtens, width, Wd,Wdunits)>, 
conver tCHt , Htuni ts, Neg Ht , Uni ts»), 
conver t (Nd, Wdunits ,New lid, Units >, 
NewArea is (Area + (New.Ht * New Hd»), 
set_neg_orea2(Face, [Extens|L1],NewArea,Units>,!. 
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set. neg-area2(Foce,L , Brea, Units) :- 
faceCExtens , Face), 
not (member CExtens,L >>, 
is aCExtens , opening), 
geome try(Extens, square ), 
dimens ionCExtens ,hei ght , Ht , Htuni ts >, 
conver t(Ht ,Htuni ts, Hew. Ht ,Uni ts), 
Nes Rrea is (Rrea + (New Ht * New Ht>), 
set neg-area2(Foce, IExtens]L ) , les Rrea, Uni ts», ! . 


set.neg-area2(Foce,L ,firea, Units? :- 
face(Extens , Face), 
not (member (Extens,L >>, 
is-aC(Extens ,opening), 
geome try (Ex tens, square >, 
dimens ionCExtens ,width, Hd, Wduni ts), 
conver t CHd , Hduni ts, Heg JId , Uni ts, 
NewArea is (Area + (New_lid * Newld)), 
Se t_neg_orea2 (Face, {Extens/L),New_Area,Units>,!. 


setneg_oreaZ(Face,L,Rrea,Units> :- 
face(Extens ,Face >, 
not(meaber (Extens ,L >>, 
is_atExtens , opening), 
geome try(Extens,circle), 
dimension(Extens ,radius ,Rd,Rdunits >, 
conver t CRd , Rduni ts, Heg Rd, Uni ts», 
Pi is 3.14159, 
Meg .Rrea is (Area + (Pi * New Rd * NewRd>), 
set neg or«ea2(F ace, IExtens [L] , New Rrea ,Uni t$)5,! . 


set. neg-area2(Foce,L ,Rrea, Uni ts) :- 
asser tz(ge t_neg_area‘Face, Area, Units >). 


get.area(Extens,Rrea, Uni ts? :- 
part of(Extens,Face?, 
dimensionCExtens , height, Ht, Htuni ts», 
dimers ion(Extens ,width, Wd, Wduni ts >, 
ge t_neg_area Face ,Neg_Area, Units >, 
conver t CHt ,Htuni ts , Nes Ht Uni ts), 
conver t (Hd, Wduni ts, New_Wd, Uni ts), 
firea iz (CNem. Ht * New Ца) – Neg_Area),!. 


get area(Extens , RÀrea, Uni ts? :- 

par t .ofcCExtens,Foce?, 
dimensionCFace, height, Ht ,Htuni ts), 
dimension(Face,width,Hd,Hdunits?, 

ga t_neg_area(F aca , Neg_Area , Uni ts), 
conver tCHt ,Htuni ts, Hes. Ht , Units), 

conver t CIld , Hduni ts , Nes. Tid , Units, 

Brea is ((Hes. Ht * Hee. Hd) - Heg-Rrea?,!. 
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get areaCExtens , firea, Uni ts) :- 
par tLof CExtens ,Face?, 
dimensionCFaca , height , Ht, Htuni ts), 
dimension(Extens, width,MHd,Hduni ts), 
get.neg. oareaCFace , Neg Rirea , Uni ts 5, 
conver t CHt , Htuni ts, New Ht ,Uni ts 2, 
conver t (Wid , Hduni ts , Hee Tid , Uni ts 5, 
Area is ((New_Ht * New_Wd> - NegArea),!. 


ge t_area(Extens,Rrea,Units> :- 
por tof CExtens ,Face), 
dimens ion¢cExtens ,height,Ht,Htuni ts), 
dimension(Face ,width, Nd,Wduni ts), 
ge t_neg_area(Face,Neg_Area, Units), 
conver t(Ht ,Htuni ts, NewHt Units), 
conver t CHd , Hdun i ts , Hee. Hd , Uni ts), 
Area is ((New_Ht * New_Wd> - Neg-Rreo),!. 


materials_report :- 
аѕѕег (2 (ваї _соѕї (0) >, 
nl ,nl,nl ,uritec' Rae Materials Report’ >, ni nl, 
write Item Cost Units Required’), nini, 


adterial_list(Material ,Num_Units, | temCost), 
NewCost is floor¢<itemtost), 
print_rat_report (Material ,Num_Units,NewsLost>, 
update_maticost(Newe_Cost), fail. 


paterials._report :- 
aatcost(Total>,ni,nl, 
wr i te eaoaai" > n 
eritecC'* *' 5). nl, 
writet€' Total material cost is $'»5, 
eciteCTotal 5,nl, 
wri tec'* *'5.nl, 
wn i te C ос ао > n] a] nl. 
fail. 


update. mat. costClItea Cost? :- 
retractiímat. costCTotal >), 
New_Total is (Total * Item Cost», 
asseriz(ímat costC(Nes Total 55,1. 


DO 


print_reatreport (Material, NumUnits,TotCost) :- 
erite(Material ), 
nome (ater lal,L1>, 
length<Li,N1), 
tabc 1? – М1), 
eriteC'$' ),uwriteCTot.Cost?, 
name (Tot_Cost,bL2>, 
lengthCL2,N25, 
tabCi5 - N2), 
eriteCNum Units), ni,nl,!. 


repori subst :- 
nl,nl,nl, 
erite’ Start Raws Materials Report (w/ substitute)’ ), 
nl,nl,nl,fail. 


report. subst :- 
substituteCExtens , Subst Mat), 
reploce-datatCExtens, Subst. Hat», 
not(raw. materials needed), 
not(aaterials.report>, 
restore_data, fail. 


replace-dataCExtens , Subst. Hat) :- 
retracttimat cost. 2), 
retract(raterial_list¢_,_,_)), fail. 


replace.dataCExtens , Subst. Mat) :- 
retroctisubst i tuteCExtens, Subst. Hat 55, 
retract (proper ty(Extens, aaterial_type, Material >), 






writec' oer or c esr C XT T X Ei ae Sd ета з ао oc, ieee cR A H >» ni, 
тшііг( "Ж *' ). nl, 
eritec’ ‘> writecExtens), eritec': substitute '), 

write(Subst_Mat), writet’ for ‘),erite(Material),nl, 

eritec'* * ni; 
aritec’ nlni, 





asser tzCproper tyCExtens , pater ial .tupe, Subst. Hat»), 
asser tzCtempCExtens , pater ial -tupe, Mater ial 25,! . 


restore data :- 
retract(temp(Extens, paaterial_tupe, Material >), 
retract (proper tycExtens,aaterial type, >), 
asser tz(proper ty(Extens, aaterial_type, Material >>,!. 
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/* Standards Fite */ 


naninimun(door , door 1, width, 32, inches). 
mini mum(door , door 1, height, 6, feel). 
max i mum (door , door 1, width, 4, feel). 
max i mum (door , door 1, height, 2, feet). 
ninimun(door, ., depth,2, inches). 
aaximumCdoor , ., depth, 3, inches). 


aininumCpone, _, qual ity, 3). 


comment (aasonry, ‘approved methods aust be used for building masonry walls 
when outside air temperature drops below 40 degrees farenheit'>. 

comment _for (cover , brick, masonry >. 

coament_for (cover, concre te_block, masonry). 

comament—for¢sub_cover , brick , masonry >. 

comment. for (sub. cover , concrete. block,masonnru». 


comment(iframing, 'grade marks must be clearly visible on all framing 
members for inspection’ >. 
comment. for Cframe, wood, framing). 


check..f or Xsub..cover , tar paper , LO tar paper 1, tar poper2, tar paper3)). 
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/* ñssembiu File */ 


/* start with information on face normalis */ 

assemble CH ,=house) :- 
asser tz(operation comment, ‘normal for each face listed',_,_)), 
assertzCoperation€"FACE’ ‘x',°¥',‘2°)), 
asser tzCoperation<’ gn 
is.atFace, face), 
norsmal-XIGFace,X5, 
normal VCFace, V), 
norsal Zi ace,225, 
asserizCoperation(Face, X ,V,2)). 





, --», --, -- 29, 


/* start with frome */ 
assembletH, house) :- 
assertz(operation(comment, ‘erect foundation and frame’ ,_,_»). 


/* do foundation frome */ 
assembleXH,house) :- 
is_acY face, face), 
trans_par tof (Yface,H>, 
noraal 2X/'face, 15, 
contains(Yface, L2, 
nember (Frame, L>, 
is_a(Frame, frame), 
proper tuCFrame , pater ial tupe, Mtype), 
assertzCioperationtFrame,assemble, material tupe: ',ntupe»». 


/* do frame perpendicular to ground */ 
assembleCH,house)? :- 
is_acy face, face), 
trans_par tof (Y face ,H>, 
normal Yo? face, 0», 
noraa | _Z(Vface, Û), 
containscYface,L 5, 
aeaber (Frome ‚| ), 
1s_a(Frame, frame), 
proper ty (Frame , mater ial tupe,Htupe?, 
assertzCoperation(CFrame, assemble, material tupe: ',Htupe»). 


asseable(H, house) :- 
is_aCY face, face), 
trans-par tof Y face, H5, 
поства і _X(Yface, Û2, 
norma | _Z(Yface, Û2, 
contains(Vfoce,L >, 
nember (Frome,L >, 
is-alFrome, frame), 
proper tyuCFrame , pater ial type, Htupe?, 
assertz(operation<Frame,assemble,'material type: ‘,Mtype)). 
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/* ceiling frame */ 
assembleCH,house) :- 
is_acY face, face), 
trons_par tof CY face ,H), 
normal-2(Yface,-12, 
contains(¥face,L), 
meaber (Frame ,L), 
is_a(Frame, frame), 
proper tyCFraee , eater i al уре, Міцре >, 
asser-tz(oper-ation(Frome,assemble, material tupe: ',Htupe)). 


** roof frama */ 
assemble CH house?) :- 
is_a(Roof,roof), 
trans_par tof (Roof ,H>, 
is_acY face, face), 
trans par tof (Y face Roof), 
containsCVYface,L ), 
menber (Frase ,L >, 
isLaCFrame, frame), 
proper ty(Frane , mater i al _type , type 2, 
asser izCoperationCFrame ,assesble, material type: ' ,Hiype)). 


/* now put doors in place */ 
assembleCGH,house?) :- 
asserizCoperationCcomment, put door framing in place',., 2). 


assembleCH,house) :- 
is_a(Door , door ), 
trans_par tof (Boor ,H), 
proper ty(Door , mater ial_type, type), 
assertzCoperat ionCDoor , assemble, material tupe: ',litupe?), 
get.facescDoor , Face1,Face25, 
asserizCoperationC'','- attach to: ', Facet,Face2)), 
par tof KCDoon ,Face35, 
assertzC[oparationC'','—- location’, ‘relative to’ ,Face3)), 
coordinates_xX¢ local ,Door ,X,Units_x), 
coordinates_Y¢ local ,Door ,V¥,Units_V), 
coordinates-ZClocal , Door , 2, Uni t$ 22, 
asserizCoperationC'',' X coordinate' , X,Uni te X2), 
assertizCoperationC'','" Y coordinate ' , V, Uni tsY22, 
asserizCoperationC'',' Z coordinate' ,Z,Uni ts 2)). 


/* put window sills in place */ 


assembleCXH,house) :- 
assertz(operation(comment, ‘put window framing in place’ ,_,_)). 
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assesmbleCH,house) :- 
is_a(W, windows), 
trans_par tof (W,H)>, 
containsCH, L2, 
веабег (5111,1 >, 
і5=_а<51 11,5111, 
assertz(operation<(Sill,assemble, ‘window sill for: ',W)), 
get_faces(W,Face!,Face2>, 
asserizCoperation('','- attach to: ',Facel,Face2)), 
par tLof Gl, Face3), 
assertzCoperationC'','- location','relative to',Face3)5), 
coordinates. XClocal , M, X, Uni ts X), 
coordinates. YClocal ,H, V, Uni ts V5, 
coordinates.ZClocal ,4,2,Uni ts 2), 
assertzCoperationC'  ,' X coordinate' , X, Uni ts. X5), 
asser tzCoperation(’',’ V coordinate' , V,Uni ts V5), 
assertzCoperationC' ',' 2 coordinate', 2, Uni ts 25). 


/* put up exterlor siding */ 
asseable CH ,house) :- 
assertz(operation(comment, ‘put up exterior siding’ ,_,—)). 


assesgbleCGH, house? :- 
is_acE exterior), 
irans-partof CE, H5, 
containsCE,L?, 
assemble«L, face). 


/* pat up roof */ 
assembieCH,house) :- 
asser tz(operation (comment, ‘put up roof’, _,—)). 


assembleC(H,house» :- 
is acR,roof), 
trans-par tof CB, H5, 
containsCR,L 5, 
assesgblec«L, face». 


/* put up faces for each room */ 
assesmble(H,house) :- 
assertz(operation(comment, ‘put up faces for each room',_,—)). 


asseable(H, house?) :- 
is_a(R,room), 
trans_par tof (R,H), 
containsCR,L 5, 
assemble«L , face». 


/* put up sindoes */ 


assembleCH,housa? :- 
assertzCoperationCcomsent, 'put windows in place’,_,—)). 
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assembleCH, house) :- 
is_atW, window), 
irans-par tof CI, H5, 
containsCXH,L 5, 
nember:(P ,L ), 
is_a(P, pane), 
menber(C, L2, 
is_actC, case), 
assertz(operation(W, ‘complete using’,P,C)). 


/* lake core of finish on windows ond doors */ 
assembleCH,house? :- 
assertz(operation(coment, ‘put finish on windows and doors',., 2). 


assembleC(H,housa) :- 
finish. 


/* take care of door knobs and hinges */ 
assembleCH,house?) :- 
assertzC[operationCcomment, put on door knobs and hinges',., 2). 


assesmblecCH,house)? :- 
is_a(D,door ), 
trans.-panr tof (D, H5, 
asserabie(0, door ). 


/* take care of paint on faces */ 
assemble(H, house) :- 
assertz(operation(comment, ‘put final paint on faces',_,_)). 


asseable(H house) :- 
Is_atR, roof), 
trans_partof(R,H>, 
contains«(R,L 5, 
paint facecCL ). 


assembleCH,house) :- 
is-a(E,exter ior >, 
irons.partof(CGE,H), 
contains(E,L»5, 
paint-facecL >. 


assesbleCH,house? :- 
is_a(R, room), 
trans par tof CR, H2, 
contains(R,L >, 
paint. facecL). 
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/* routines to put up sub_covers and covers for a given 

/* list of faces supplied as first argument; these routines 
/* look for common gaterlals to help set priority; all 

/* sub_covers are handled prior to covers; 

/* covers which are paint are left to be performed at a 

/* later time; all sub_covers and covers 

/* assoclated with the floor are performed last 


asseable(L, face) :- 
assemblei(L,[], face). 


assemble<(L, face) :- 
nesber(F ace, L2, 
noraa | _Z(F ace, 1), 
asser tz(Coperation (comment, ‘build floor as last step',.., 22 
contains(Face,L 15, 
assegble2CIL1), IL1), face». 


assemblei(L,L1,face»? :- 
seaber (Face ,L 2, 
not(normal_z2(Face, 1>), 
delete(Face,L,L2), 
contains(Face,L3), 
assegmble1CXL2, IL3|[L11, face), ! . 


assemblei(L,L 1, face) :- 
assemble2(L1,L 1, face», !. 


assemble2CFull. L,L,face»? :- 
nember (Face ,L >, 
delete(Face,L,Li), 
seaber (| tem ,Face), 
is_acl tem, sub_cover ), 
proper ty( | tesa, mater ial_tupe ,Mtype ), 
operat i on(Y, —, —, type 2, 
wesber (F ace 1, Ful I_L), 
peaber (Y Facel>, 
asserizCoperationCltem,assemble, material tupe: ',Mtupe?), 
delete(! tem, Face, Facez2), 
asseeble2(Full_t, [Face2|L11, face>,!. 


assesmble2C(Full L,L, face? :- 
member (Face,L >, 
deleteCFace,L,L 15, 
seaber (| tem,Face), 
is_acl tem, иь солее >, 
proper {yC | tea, pater ial -tupe, Mtupe?, 
asser izCoperationCltem,assemble, material tupe: ',HMtupa?), 
deleteClIten,Face,Focel?, 
assemble2CFul IL, IFacet[L 11, face», ! . 
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assemble2(Full_L,L,face> :- 
member (Face ,L), 
delete(Face,L,Li), 
member (| tem, Face), 
is_aCl tem, cover), 
proper ty( item, mater ial_type ,Mtype), 
notCliquid(ITltupe,paint, j ر‎ 2, 2, 222, 
operationcy,—,—, Mtype), 
member (Focel, Full_L 5, 
nember CV Facel), 
assertzCoperationC ltem, assesble, material type: ',Htupe5), 
deleteCiten,Face,Face2), 
аѕѕењб le2(Ful 1L, IFace2]L 1), face», ! . 


assemble2(Ful ILL, L, face? :- 
member (Face, >, 
delete(Face,L,L1), 
member (li tem, Face), 
is_aCl tem, cover), 
proper ty(! tem, aaterial_type,Mtype), 
not¢liquid<ntupe, paint, ,_,_,—,— >), 
assertz(operation(item,assemble, ‘material type: ‘,Mtype)), 
delete(l tem, Face, Face1), 
assemblae2(Ful(_L, [Face1|L1), face), !. 


assesble2(Full_L,L, face). 


/* take core of finishes */ 
finish :- 
proper ty(F, finish_type,F type), 
proper ty(F, finishcolor,Fcolor), 
asser izCoperat ionCF , finish,F type, Fceolor)). 


/* assemble door knob */ 
assemble(D,doonr) :- 
proper ty(D, knob_type, Ktype ), 
asser tzCoperat ionCD, assemble, knob, Ktupe)). 


/* assemble door hinges */ 
assembleCD,doonr ) :- 


proper ty(D, hinge_tupe, Htype), 
asser tzCoperationCD, assemble hinge, Htupe?). 
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/* routines to apply paint to faces; acts on covers only */ 
paint_face(L) :- 

wember (Face, >, 

nore@al_2(Face,-1), 

containscCFace,L 15, 

member (Cover ,L1), 

is-aCCover , cover ), 

proper ty(Cover , mater ial_type ,Mtype), 

liquid<Ntype, paint,_,_,-,_,-), 

asser tz(operation(Cover,paint, ‘material type: *,Mtype)), 

Gelete(Face,L,L2), 

paint face(L2), |. 


paint_facetL) :- 
member (Face ,L)>, 
norma | _.Y(Face, Û), 
noraal _Z(Face, O0), 
contains(Face, L1), 
nenber {Cover , L172, 
is_a(Cover, cover), 
proper ty(Cover, water i al _type , Htype), 
liquid(Mtype, paint,_,_,-,-,-), 
asser tz(operation(Cover, paint, ‘material type: ‘,Mtype)), 
delete(Face,L,L2), 
paint_face(L2),!. 


palnt face«L» :- 
aember CFace,L >, 
normal x¢Face,0), 
normal _2¢(Face,0), 
contains(Face,L 15, 
nenber (Cover , L102, 
is_a(Cover , cover), 
proper ty( Cover , material type, Mtype), 
liquid¢Mtype, paint,_,-_,-,-,~-), 
asser tzCoperation(Cover paint, ‘material type: ',Mtype)), 
delete(Face,L,L2), 
paint_face(L2),!. 


paint_face(L) :- 
member (Face,L), 
nor*al-ZCGaca,- 1), 
contalns(Face,L 15, 
senber CCover- ,L 15, 
Iis. aCCover , cover ), 

proper ty( Cover, mater i al _type , Htype >, 

liquid(Mtyupe, paint,_,-,-,-,-), 
asser izCoperat ionCCouer ,paint, ' material tupe: ',Mtupe?), 
deletecFace,L,L2), 
paint. face(L 2), 1. 
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paint .face(L5 :- 
nember CFace ,L), 
contains(Face,L 15, 
aeaber (Cover ,L 15, 
is ac(Cover , cover ?, 
proper ty(Cover , mater ial_type, type), 
liquid(Ntype, paint,_,_,-,-,~-), 
asser tz(operation(Cover,paint, ‘material type: ' Htupe)), 
delete(Face,L,L2), 
БШ с г '. 


paint_face(L ). 


/* routine to get the two faces which an item is associated with */ 
get_faces(| tem,Facei,Face2> :- 

face(|tem,Facel), 

face(item,Face2>, 

not(Facel = Face2),!. 
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/* Materiais File */ 


/* materials for doors */ 

row mater ials.needed :- 
is -aCExtens , door 2, 
eater taiCExtens, _,.,.,_,—-,-,—,—-,—,—,—,Cost), 
add_materiai CExtens, 1,Cost>, fail. 


raw_nateri al s_needed :- 
is_acExtens , door), 
proper ty(Extens, finish_type, Paint), 
liquid¢Paint, _, Rrea_Cov,Area_Units,,.,Cost), 
dimensioncExtens,helght,OrgHt,Ht_Units>, 
dimens ionCExtens , width, Org. Jld, Hd Uni ts), 
dimension(Extens , depth, Org Dp, Dp. Unl ts>, 
conver t COrg- Ht Ht Uni ts, New Ht ,Rrea Dni ts), 
conver t COrg- Jd , Hd. Uni ts, ew. Jd , Rrea Uni ts, 
conver t Org Do , Dp- Uni tes , News Dp , rea Dni ts), 
Area is ((2 * Hew-Ht * NewWd> + (2 * Hew Ht * Heg. Dp5 * 

(2 * Nes. ]ld * Nes Dp?), 

Hum Units is (Area / Rrea_Cov), 
Tot Cost is (Num Units * Cost), 
add_material (Paint,Nua_Uni ts, Tot_Cost), fail. 


/* materials for windows */ 

row materials needed :- 
is_acExtens,window>, 
eater ial (Extens,_,_,-,~,-,-,-,-,-,~,—,Cost), 
add. mater ial EExtens, 1,Cost), fail. 


roe materials-needed :- 
is_a(Hindow , window), 
par t_ofCExtens,Window), 
is aCExtens,sill), 
proper tu(Extens , fini sh_type, Paint?, 
liquid¢Paint,_,AreaLov, Area_Units,_,_,Cost), 
conver t (Area_Cov , Area_Uni ts,New_Area, feet), 
New Hrea2 is ((New_Area * NewArea) / Rrea Cov), 
dipenslonCGIlindoge, height, Org Ht ,Ht Uni ts», 
dimensionCllindos, width, Org. MHd,Hd Units), 
par t_of(Hindow,Face), 
dimers ion(Face ,depth, Org_Dp ,Op_Uni ts), 
conver tCOrg Ht , Ht Uni ts, Hes Ht, Rirea Uni ts2, 
conver t COrg Jd , Hd. Uni ts , New. Tid ,Airnrea Dni ts), 
conver t COrg. Dp , Dp Uni ts , Hew. Dp, Rrea Units, 
Area is ((2 * Меш Ні ж Меш Пр) + (2 * Nem. lid * Nes. Dp)), 
Hum Units Is (Area / Area Cov), 
Tot Lost is «Nun Units * Cost), 
add. mater ial (Paint,tum Dni ts, Tot. Cost), fail. 
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/* materials for frames; assumes | square foot of area *+/ 
/* requires a 1 foot length of frame wood */ 
roew_materials_needed :- 
is_acExtens, frome), 
dimensioncExtens, height, Height, Ht_Units), 
dimensioncExtens ,width,Width,Wd_Units), 
conver t(He ight, Ht_Uni ts,NewHeight, feet), 
cornver t(Width,Wd_Units ,NewWidth, feet), 
proper ty(Ex tens, mater ial_type, Material >, 
naterial (Material ,wood,Ht,Htunits,Wd,Wduni ts ,Dp,Dounits,_,_,_,-,Cost), 
longest dimension(Ht,Htuni ts, Hd, Hduni ts, Dp, Dpuni ts, Len, Lenunits), 
corver t(Len, Lenuni ts ,NewLlen, feet), 
Brea is (Hes Height * Hew Hidth), 
Hum Units is CRrea / New_Len), 
Тос Гові іс «Hum Units * Cost), 
add_material(Material ,Num Units, TotCost), fail. 


ras .materials.needed :- 
is_acExtens, frame), 
not(dimensioncExtens,width,_,_)), 
not¢dimensioncExtens , height, ,>), 
proper tyCExtens , mater ial tupe, later ial), 
mater ial(Xlater ial ,mood, Ht, Htuni ts, Hd, Hduni ts, Dp, Dpuni ts, ., ., 2, ., Costo, 
get.areaCExtens , Rrea, Uni ts 5, 
conver t CHrea, Uni ts, Hew Rrea, feet?, 
NewArea2 is (XONes Rrea * Nee Rrea? / Area), 
longest dimens ionCHt, Htuni ts, Hd, Hduni ts, Dp, Dpuni ts, Len, Lenuni ts), 
conver t(Len, Lenunits ,New Len, feet), 
NuaUnits is (Area / NeewLen), 
Tot Cost is (Ма Units * Cost), 
add mater ial CHater ial , lua Uni ts, Tot Cost), fail. 
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ros materials.needed :- 
norsal ZKFace,- 15, 
part. of(Extens,Face), 
is.acExtens, frame), 
proper ty(Extens, material type, Material), 
acter ial (Material, wood, Ht, Htuni ts,Wd,Wdunits,Dp,Opunits,,_,-,-,Cost), 
longest dimens ionCHt,Htuni ts, Hd, Hduni ts, Dp, Dpuni ts, Len, Lenuni (52, 
conver t Len, Lenuni ts, New Len, feet), 
is acCRoof ,roof 5, 
par t.ofCFoce2,Roof >, 
is-aCFace2, face), 
part. ofCExtens2,Foce2), 
is_acExtens2, frame), 
norma! _2¢Face2,CosZ), 
dimenslonCExtens2,height,Ht face, Ht .face-uni ts», 
conver i CHt. f oce, HL face units, Nes Ht. face, feet5, 
dimens iontExtens2, width, Wd_face, Wd_face_units), 
conver tCid. face Vd face units, Nes. Tid face, feet), 
Sin? is 6547141 - (CosZ * CosZ)>), 
Brea is (SinZ * Nes.Ht. face * Nee. Jd. face), 
Rrea2 is (Sin2 * Hes Ht face * CosZ * Nee. Ht. face * 2), 
Tot.Area is Area + Areaz, 
Num Units is (Tot.Area / NewLen), 
Tot Cost is (Мот Units * Cost), 
add. mater ial (Hater ial , Num Uni ts, Tot Cost?, fail. 
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rawmaterials.needed :- 
normal _z(Face,-1), 
par t_of(Extens, Face >, 
is_acExtens, frame), 
proper ty(Extens,material_type, Material >, 
eater ialCHater ial ,wood, Ht, Htuni ts, Hd, duni ts, Dp, Dpuni ts, 2, 2, 2, 2, Cos t), 
longes tLd imens i onCHt , Htuni ts, Hd , Hduni ts, Dp, Dpuni ts, Len, Lenuni ts, 
conver t Len, Lenuni ts , les L en, feet 5, 
is -aCRoof , roof », 
par t ofCFace2,Roof 5, 
is.aCFace2, face), 
por t_of(Extens2 ,Face2), 
is-aCExtens2, frame», 
normal. ZG ace2,Cos2), 
notKdimension(Extens2 height, ..,..22, 
dimensionCFace2,height,Ht face, Ht face.units?), 
conver t(CHt_face,Ht_face_uni ts, New_Ht_face, feet), 
dirmens ion(Face2 ,width,Wd_face,Wd_faceumits), 
conver t CHd. f ace , Hd. f ace uni ts, Hes Jid. face, feet?, 
Sin2 is &sqrtC1 - (CosZ * CosZ))), 
firea is (Sin2 * Hew Ht foce * New. Hd. face», 
Rrea2 is (Sing * New.Ht_face * Cos2Z * New Jd face», 
Tot Hrea is Area + Rreaz, 
Hum Units is (Tot. firea / New Len), 
Tot Cost is (Hum Units * Cost), 
add_mater ial (Material , Num Units, Tot Cost), fail. 


/* frome material of type "filler" */ 

rae materials-needed :- 
is_acExtens, frome), 
proper tuCEx tens , pater ial -tupe , ater ial 5, 
fillercMater ial , Z,Uol ,Uoluni ts, ., 2, Cost), 
get.area(CExtens , Area, Uni 15), 
comver t(VUol ,Uolunits,NewVol Units), 
NewVol2 is ((Hew_Uol * Heg_Uol * New_Vol>/(Uol * 901922, 
dimens ionCExtens , depth, Dp, Opuni ts 5, 
conver t Dp , Dpun i ts , Hew. Dp , Uni ts2, 
Num Units is (firea * New Dp / Nee. Uol2), 
Tot.Cost is (Nua_Units * Cost), 
add_material (Material ,NumUnits, TotCost), fail. 
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rae materials-needed :- 
is-aCExtens , sub. cover >, 
dimension(Extens , depth, Th, Thuni ts), 
proper ty(Extens, mater ial_type, Material >, 
sgater ial (Hater ial, |, Ht, Htunits,Hd,Hduni ts, Dp, Dpuni ts, 1, 1, 2, 2, Costo, 
aatch(Ht,Htuni ts, Ld Uduni ts, Dp, Dpuni ts, Th, Thuni tz, Rc tLHt ,Uni ts 1, 
fict Hd, Uni t2», 
get. areaCExtens , Rrea, Uni ts 2, 
conver tCRe LHt, Units 1,ActHt2,Units)>, 
conver t (Ac tld, Uni ts2,Act_Nd2,Units), 
Hum Units is (Area / (Act.Ht2 * Act.Wd2>), 
TotCost ів (Ма Uni ts * Cost), 
add mater ial XHaterial , Hum Units, Tot Cost), fail. 


гот materlals.needed :- 
is -aCExtens , sub-cover ), 
not dimensioncExtens, depth, Th, Thunits >>, 
proper tuCExtens , satenc ial tupe,tlater ial 5, 
naterlal (Material, , Ht, Htuni ts, Hd, Hdunl ts, Dp, Dpunl ts, , L, , 2, Cost), 
ge t_areatExtens Area, Units), 
conver tCHt,Htuni ts, NewHt, Units), 
conver t (Wd ,Wdunits ,NewWd,Units>, 
Mum Units is (frea / (Hee Ht * Hes. Jid»), 
Tot Lost is (um Lnits * Cost), 
add_material (Material ,Nua_Uni ts, Tot_Cost>, fail. 


row materlals.needed :- 
ig&-aCExtansz , «ub-cooen ), 
proper tu(CExtens , mater ial -tupe, Paint), 
liquidCPaint, , Rrea Cou, Brea Units, _ _ Cost), 
get. areacCExtens , Brea, Uni ts 5, 
conver t Rrea Сох, Rrea Uni ts, Nes Rrea, Uni ts), 
New _Area2 is (<(New frea * New frea) ? Ягеа Соу), 
Num Units is (Area / Nes_Area2), 
Tot.Cost is «Hum Units * Cost», 
add mater ial (Paint,um Uni ts, Tot.Cost?, fail. 


row materials-needed :- 
is-aK(Extens, cover ), 
dimens ionCExtens , depth, Th, Thuni ts >, 
propertu(Extens , pater ial -tupe, later ial >, 
a.ater ial Cater ial, , Ht, Htuni ts, Hd, Lduni ts, Dp, Dpuni ts, 2L, 2, L, Z, Cost), 
aatch(Ht,Htuni ts, Hd, Hduni ts, Dp, Dpunl ts, Th, Thuni ts, Rc t. Ht ,Uni ts 1, 
Всі Да, Шпі 152), 
get_oreatExtens, Area, Uni ts>, 
conver t (Ac tHt, inches ,ActHt2, Units), 
convert (Ac CL Hd , inches , Rc CDHd2 , Uni ts5, 
Num Units is (Rrea / CAct.Ht2 * Acttid2)), 
Tot_Cost is (um. Units * Cost), 
oadd_materi al (Material , Num_Jni ts, Tot Cost), fail . 
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raw materials.needed :- 
is_acExtens, cover ), 
not(dimens iontExtens, depth, Th, Thunits)), 
proper ty(Extens, mater ial_tupe, Material ), 
material (Material ,_,Ht,Htunits,Wd,Ndunits,Dp,Dpunits,_,_,_,_,Cost>, 
get areaCExtens ,Area, Units), 
conver tCHt ,Htuni ts, NewHt, Units), 
conver t (Wid, Wdunits ,New Wd, Units), 
NumUnits is (Area / (New_Ht * New_Wd>), 
Tot.Cost is (NumUnits * Cost), 
add_material (Material ,NumwUnits, Tot_Cost>, fail. 


row mater ials.needed :- 
is. aCExtens , cover 5, 
proper tuyCExtens , mater ial -tupe , Paint), 
liquid(Paint, , Rrea Cou ,firea Units, l, ., Cost), 
get.areatExtens , Brea, Uni ts 5, 
conver t (Rrea_Covu , frea_Units ,New Area, Units), 
New.Area2 is ((New_Area * NewRrea>d / Вгеса Соо), 
NuaUnits is (Area / New_Area2), 
Tot.Cost is (Nua_Units * Cost), 
add_mater ial (Paint ,NumUnits, Tot_Cost), fail. 


add. mater ial X(Hater ial , Num Units, Tot Cost) :- 
retracttpsater iallistXiHater ial , Old Hum Uni ts, 01d Cost 55, 
New. Num. Units is KXOld.Nua Dnits + Num Units), 
New. Cost is «Old.£Cost + Tot Lost), 
assertz(imsater ial -listtIHater ial , New. Num Dni ts, New Cost5),!. 


add_mater ial (Material , ua Units, Tot Cost? :- 
asser tzCmater ial. listiltater ial , Hum Dni ts, Tot Cost55,!. 





/* material data */ 


aater ial shingle12,shingle, 12, inches,5, inches,0.25, inches,0, feet,0, feet, 1.25). 


mater ialCtar paper2, tar paper , ?2, inches, 240, inches, 0.25, inches, O, feet, O, 
feat, 125.00). 


aater ialCtar paper 1, tar paper , 72, inches, 240, inches ,0.25, inches ,0, feet,0, 
feet, 150.00». 


material (tar_papers3, tar_paper , 72, inches , 240, inches,0.25, inches,0, feet,O0, 
feet, 110.00). 


aater ial sheath. paper 24 , sheath. paper, 12, feat, 100, feet, O. 1, inches, 
0, feet 0, feet, 75.65). 


ma ter ial (woods, wood, 144, inches,4, inches, 2, inches ,0, feet,0, feet,8.25). 
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mater ial (hard sood9 , hand. sood, 4, inches ,24, feet, 0.5, inches, 
0, feet, 0, feet, 12.00). 


material Chardboard32, hardboard, 36, feet, 10, feet, 1, inches,0, feet,0, feet, 136.55). 
eater ial Chardboard?8 , hardboard , 36, feet,24, feet, 1, inches,0, feet,0, feet, 289.00). 
aater ial chardboard34 , hardboard, 24, feet, 10, feet, 1, Inches,0, feet, 0, feet, 95.355. 
/* use brick 10x4x6 effective size */ 
eater ial Cbrick88, brick, 10, inches ,4, inches ,6, inches, 

0, feet,0, feet, 1.15). 
liquid(paintS, paint, 900, feet, 1,gqallon,8.00). 
liquidCpaint21, paint, 700, feet, 1,gallon, 13.55). 
liquid<painti?,palnt, 1100, feet, 1,gallon,8.25). 


/* 10 Ib per 2 cubic feet */ 
fillerKconcretal,concrete,2, feet, 10, 1b, 5.00). 


aater ial (door 1, ., 2, 2, 2, 5, 5, —, 0, feet, O, feet, 16.00). 


eater ial windom1, ., 1, , ., ., —, .,0, feat, 0, feat, 30.50). 
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f* Housel File */ 

nat дон жеке ж же АЖЖ LA АОБ k iii eh A O / 
/* house data */ 

is aK(housel,house). 

proper tuyChouse 1, subtupe, single room». 
containsChousel, [roof 1, exter ior 1,room1)]). 

очо оос а oek / 
/* exterior data */ 

is_atexterior1,exterior >. 


contains(exterior 1, [faceS, face6, face?, face8) >. 
partuofCexterior1,house1). 


экон жокк бок Жорка ЖоК Жак». АК жар Ж f oof fof olacak док 7 
/* roof data */ 
is-at(roof 1,roof). 


containsiroof 1, [face11, face121). 
par tof (roof, house >. 


gegen ng у‏ ا ا 
is_at faceli, face).‏ 


dimension facell,height, 151.5, inches). 
dimension¢ face 11, width, 384, inches). 
dimensiontCfacell,depth, 6.5, inches). 


containsCface11, [frame1, sub.cover2, sub cover 1, cover 1] 5. 
normal -XCface 11,0). 

noreal YC facel11,0.34>. 
гогва!|. 2 Ғаосе11,0.04). 
partiof(faceil,roofi>. 
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Is aCfromel, frame». 

proper tuc frame 1,material уре, жооб >. 

di merıs i ont frame 1, hei ght, 139.5, inches). 
dimension( frame |, width, 382, inches). 
dimension( frame, depth,4, inches). 

face( frame!, facel1>. 

part_of( frame, facel1>. 

p‏ = < ص 
is-aCsub.cover2 , sub..cover ).‏ 

proper ty(sub_cover2, pater ial_type, soods >. 
dimension(sub_cover2,depth,2, inches >. 


par t_of (sub_cover2, face11)>. 


Is-atCsub-cover 1, sub-cover >. 

proper ty(sub_cover 1, aaterial_type, tar_paperz >. 
dimenslon(sub_cover 1,depth, 0.25, Inches >. 

par t_of (sub_cover 1, facel1>. 

EL 1n — aaa aaa —— 
isaCcover 1, cover). 


proper tyu(cover 1,aaterial_type, shinglel2). 
proper tyu(cover 1, finish color, brown). 


dimers ion(cover |,depth,0.25, inches ). 


par t_of (cover 1, facel1). 
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fette eie ipe speed nie ah anao T 


is_at face 12, face). 
dimension< face i2, height, 151.5, inches). 
dimens ion¢ face 12, width, 384, inches). 
dimens ion< face 12, depth,6.5, inches). 
contains< face 12, [ frame2 , sub_cover 13, sub_cover 14, cover 12)). 
normal X(face12,0). 
normai_Y< face 12,-0.34). 


normal _27¢ face 12,0.94). 
par t_of(faceiz,roofi>. 


is_a‘ frame2, frame >. 

proper ty‘ frameZ, mater iai_type, woods). 
dimension‘ frame2 height, 139.5, inches >. 
dimension( frame2 , width, 382, inches). 
dimension‘ frame2, depth,4, inches ). 
ѓасе‹ їгате2, їасе 12 >. 


par tiof< frame2, їасе 12). 


isatsub_cover 13, sub_cover ). 
proper ty(sub_cover 13, mater ial_tupe, woods). 
dimens ion(sub_cover 13, depth, 2, inches). 


par t_of<sub_cover 13, facei2>. 


is -aCsub. cover 14, sub. cover ). 
proper tyCsub. cover 14, sater ial -tupe, tar paper2). 
dimension(Csub. cover 14, depth,0.25, inches). 


par t of ísub. cover 14, face 125. 
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[mrt rn nnn ----------.- AI ==# ё 
is_aCcover 12, cover ). 


proper ty(cover 12, mater ial_tupe, shingle i2). 
proper ty(cover 12, finish_color, brown). 


dimensionCcovenr 12,depth,0.25, inches). 

par tof (cover 12, ѓасе 12). 

DRE ERO SIRI RISES SEER SOE EIEIO IE 7 
/* room! */ 

is_aCtroom 1, room). 

coordinates XCiproduct ,rooa1,0, inches). 
coordinates Y Gorcoduct , room, 0, inches). 

coordinates Z(product ,rooa, 12, inches). 
contains(rooai, {facel, face2, face3, faced, face9, facei0))>. 
par tof (room i, house i ). 

ocolos leoi 7‏ ا ا ا ا 
facel */‏ */ 

is_ac face 1, face). 

dimension €facel,height, 115, inches >. 
dimension< facel, width, 362, inches). 

dimension‘ facei,depth, 1, inches). 

containsCface1, [sub cover 3,couver2]). 

norsal X(facei,02». 

norsal YCfacel,- 1). 

norsal.ZCIGfacet,0». 

part_of (face i, rOOR Î 2. 
/Ж-----------------------------------------------%/ 
is_aCsub_cover3 , sub_cover ). 

proper tuCsub. cover3 , mater ial уре, hardboard3z >. 
dimensionCsub couer3,depth, i, inches 5. 


part_of(sub_cover3, facei). 
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[Ran a s с> ———— T 
isatcover2, cover). 


proper tyC!Cover2 , pater ial -tupe,paint9). 
proper ty(cover2, finish_color ,yel low). 


par t_of Ccover2, face !). 

Реон iako 
/* face2 */ 

is-aCface2, face). 
dimensionCfoace2,beight, 115, inches). 
dimension‘ face2 ,width, 240, inches >. 
dimensionCface2,depth, 1, inches). 

containsCface2, [sub cover , cover 31). 

norsal X(face2,-15. 

normal -YCface2,0). 


normal 26(face2,0). 
par t.ofCface2,roona). 


ME s ns sss 
is_aCsub_cover4 , sub_cover ). 

proper ty(sub_cover4 , mater ial type, hardboard34 >. 
dimens ion<sub_cover4 ,depth, 1, inches). 

par t_of(sub_cover4, face2). 

=n ss — t‏ ل 
і5.а(сомег3,сочег).‏ 


proper tuCcouer3 mater ial -.tupe , paint9). 
proper tuCcover3, finish color, yellow). 


par t_of (cover3, faceZ >. 
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рео оо оао оов ео ео / 
ѓе face3 */ 

is.aCface3, face). 
dimensionCface3,height, 115, inches». 
dimensionCface3,width,352, inches). 
dimensionCfaces3, depth, 1, inches). 
containsCfaceS3, [sub cover, cover4)). 
normal _x¢ face3,0>. 

normjal_YCface3, 1>. 


normal _Z( face3,0). 
par t_of¢ face3,roomi>. 


is_a¢sub_cover’s, sub_cover ). 

proper ty(sub_covers, mater i al _type , hardboard32 2. 

di mens i ontsub_coverS, depth, 1, inches). 

par t_of (sub_coverS, face3). 

i eee sura u ua — ku | 
is_aCcover4 , cover >. 


proper tyCXCcover4 , mater lal -tupe,palnt9». 
proper ty(cover4, finish_color,yel low). 


par t_of (cover4 , face3). 





/* foce4 */ 


is. aCface4, face). 


dimensionCface4 height, 115, inches). 
dimens ion< face4, width, 240, inches). 
dimens ionCface4 , depth, 1, inches). 


contains< faced, [sub_cover6 , covers) ). 
normal XCface4, 15. 

normal VCface4,0). 

гогва!. 2(іасе4,0). 

port_of¢ foced ,rooml). 
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is aCsub.coverb, sub. cover }. 
proper tyCsub. cover6, mater ial -tupe , hardboard34 >. 
dimension(sub. coverb ,depth, 1, inches >. 


par t_of(sub_cover6, face4 >. 


is. aCcover5, cover >. 


proper ty(covers, nater ial -tupe,paint95. 
proper ty(covers, finish_color ,yel low). 


par t_o f (coverS, faced). 
жскс ос ak aa toa ofa c 


f* face5 *; 
/* use brick 10x4x6 effective size */ 


is_at faces, face >. 

dimension‘ faces, height, 120, inches). 
dimensionCface5, width, 382, inches). 
dimensionCface5, depth, 6, inches). 

contains( faced, Lframe3, sub. cover? , cover6)). 
norssal.-XCXGface5,02). 

normal_Y¥< faces, 15. 


noceal 2€face5,0). 
par tLofCfaceS, exterior 15. 


is-aCframe3, frame). 
proper ty( frame3 , sater ial_type , woods). 
dimens ion< frames, depth,4, inches >. 


face‘ frames, faces >. 
face( frame3, facel>. 


par t_of( frame3, face5S>. 
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is_atsub_cover? , sub. cover >. 

proper tuCsub. cover ? , mater ial -tupe, sheath. paper24). 
par t_of ¢sub_cover?, faces). 
т د‎ me 
is_atcoveré6, cover >. 


proper tuCcover6, mater ial type, brick88). 
proper ty(cover6, finishcolor,red). 


dimens ion<cover6, depth,6, inches). 

par t_ofCcover6, faces). 

annie xc doceo doc Togo c 4 ох до ха شت‎ | 
/Ж face6 */ 

is_at face6, face». 

dimensiontface6, height, 120, inches). 
dimension‘ face6, width, 250, inches). 
dimension‘ face6, depth, 6, inches). 

contains ¢( face6, [ framed, sub_covers , cover ?,sindost)). 
normal XxCfaceo, 15. 

normal VCface6,0). 


погва! 2 їасеб, 0). 
pant ofCface6,exter ior 1). 


in Ее oe 
isal froed, frome). 

proper ty< framed , mater ial_type , soods ). 
dimension framed , depth,4, inches). 


face‘ frame4 , face6). 
face< frame4, face2>. 


рагі ої frame4 , faced). 
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is_a¢sub_covers, sub_cover ). 
proper ty(sub_covers, mater ial_type, shea th_paper 24 >. 


par t_of (sub_covers, face6>. 


is aCcover ? , cover 5. 


proper tuCcover? , pater ial Ltupe, br i ck88). 
proper ty(cover?, finish_color,red). 


dimens ion cover? ,depth,6, inches ). 

par t_of (cover? , face6 >. 
----------------------------------------------ж/ 
is_aCeindos |, windows >. 

dimensionCeindow!, height, 36, inches). 
dimension<window!, width, 48, inches). 
dimension(window!,depth,0.5, inches). 
contains(eindow!, (panel, sill 1,casel]). 
faceCwindos1,face2). 

face(window!, face6)>. 
coordinates_X¢ local ,window1,96, inches). 
coordinates_Y¢C local ,window!,0, inches >. 
coordinates_2¢ local , window 1,66, inches >. 

part_of (window 1, faceb). 
/%--------------------------------------------“/ 
is_aCpane 1, pane). 

proper tyCpane |, quali ty, 4). 

por t_of (pane 1, window !>. 
Я-----------------------------------------------Ж/ 


is-a(silll,sill). 


proper-tu(silll1 finish ре ,раіпі 12). 
proper ty(siiit, finishcoior,whi ted. 


par tLoftsillt,windowt). 
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———— } 


is_atcasel,case). 

por t_of Ccasel,windomi). 

какао ооа оао оноосон фокс факце 
/* face? */ 

is-aCface?, face). 

dimensionCfoace? , height, 120, inches). 
dimensionCface? , width, 382, inches). 

dimens ionC face? , depth,6, inches). 

containsCface?, Lframe5, sub. cover 9 , cover8 , door 11). 
normal XCface?,02). 

normal VYCface?,- 1). 


norma!l_2¢ face?,0). 
part.ofCface? exter ior 1). 


is-aCframe5, frome ). 
proper tuC f rame5 , mater ial -tupe , wood8 5. 
dimenzionCfrome5,depth,4, inches). 


faceCframe5, face? ). 
face(frame5, face3). 


part_of<( frames, face?>. 

ME IA sÇ رچ‎ 
is -aCsub cover9, sub. cover >. 

proper tyCsub cover9 , pater ial .tupe, sheath. paper24). 


par tLof sub cover9, face? ». 
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is_atcovers, cover >. 


proper tuCcover&, mater ial -tupe, br i ck88). 
propertu(Ccouer8, f inish color ,red). 


dimens ionCcouer8 , depth,5, inches). 


part_of (covers, face?). 


is_aCdoor 1, door >. 


proper ty(door 1, mater ial_type , woodS >. 
proper ty(door 1, finish_tupe, paint21). 
proper ty(door 1, finish color , brown). 
proper ty(door 1, knob_tupe, round3z >. 
proper tuCdoor 1, hinge-tupe, square3in). 


dimens ionCdoor 1, height,84, inches). 
dimensionCdoor 1 , width, 36, inches). 
dimens ion(door 1, depth, 2.5, inches). 


faceCdoor 1, face3). 

faceCdoor 1, face? ). 

coordinates XClocal , door 1, 125, inches). 
coordinates. YClocal , door 1,0, inches). 
coordinates. ZClocal , door 1,42, inches ). 
par t_of (door 1, face?>. 


eiie sen jajaj lole e oec oorr oos ims ЖОЛ ЖоК pO |} 
/* faces */ 

is_a¢ faces, face). 

dimension face8 height, 120, inches). 

dimersi ont face, width, 250, inches). 

dimens ionCface8, depth, 6, inches). 

contains< faces, [ frame6, sub. cover 10, cover 915. 
normal _x¢ faces ,-1)>. 

normal_Y( faces ,0>. 


normal Z2Cface8,0). 
part. ofCface8, exter ior 15. 
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is_at framed, frame). 
proper ty( frame6, mater ial_type, sood8). 
dimension< frame6, depth, 4, inches). 


face‘ frame6, faces). 
faceCfromeb, faced 5. 


part .ofCfroameb5, face8). 


is-aCsub- cover 10, sub cover ). 
proper ty(sub_cover 10, mater ial_type , sheath. paper 24). 


part. ofCisub. cover 10, face8). 


i s_a(coverd, cover). 


proper ty(cover9, saterial_type, brick83). 
proper tuCcover9, fini sh-color,red?. 


par t_of<cover9?, faces). 

ёк лс кок кодон AAS IER f 
/* faced */ 

is_aC faced, face). 

dimension faced, height, 20, feet). 
dimension( face? ,width, 30, feet). 

dimension< faceS, depth, 1, inches). 

containstface9, [ frame?, sub_cover 11, cover 10). 
norea!_X¢ face? ,0). 

normal YCface9,0»5. 


normal 2С {асе ,– 1). 
par t_of< face9, roca). 
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is.aCframe?, frame). 

proper tu< frame? , material _type, оос >. 

facet frame? ,face9). 

par t Lof iframe? , Гасе9). 

y; A 
is_a¢sub_cover 11, sub cover ). 

proper tytsub_cover 11, mater i al _type , hardboard ?8 2. 
dimension(sub. cover 11, depth, 1, inches). 

part ofisub. cover 11, face9). 

— — —— s EE — 
is.aCtcover 10, cover >. 


proper ty¢cover 10, materia!_type, painti?). 
proper tuCcover 10, f ini sh color , mhi te». 


port ofCcouer 10, face9). 

SAAR AAA AAAAA A AAA RANA AAA AAR AAR AAA ARTA _ 
/Ж Ғосе10 %/ 

is.aCfacei0, face). 

dimens ion< face 10, height, 382, inches). 
dimension< face i0, width, 262, inches). 
dimensionCface t0 ,depth, 12.5, inches). 
containsCface 10, [ framed, sub_cover 12, cover 111). 
normal XK face 1Û, Û2. 

nore|al_Y< face 10,0). 


normal. 2€£facet0, 15. 
par t_of<( face 10,rooml>. 
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isal frames, frame). 

proper tut frame8 , mater ial .tupe, concrete). 
dimension(frame8, depth, 12, inches). 

facet frames, face iO). 

par tof (frames, face 10). 

PEL ill ee ef 
is_atsub_cover 12, sub_cover ). 

proper ty(sub_cover 12, pater ial .tupe, hard wood9». 
dimension(Csub cover 12, height ,20, feet). 
dimension(sub. cover 12, width, 30, feet). 
dimensionCsub. cover 12, depth, 0.5, inches). 

par tLof ub. cover 12, face 10). 
%-----------------------------------------------%/ 


is_a(cover11, cover). 


proper ty(cover 11, materi al __tupe,paint217. 
proper Ly(cover 11, finish_color, brown). 


dimension<cover 11,height,20, feet). 
dimens ionCcover 11, width, 30, feet). 


par tLof CCover 11, face 105. 
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/* Schesa File */ 


par t_of (house, floorplan). 
par t_of (house, exterior). 
par t_of (house, room). 

par t_of (house, roof). 

par t_of (house, space). 


par tof roof, face). 
par tLof (room, face). 


par t_of (space, face). 
par t_ofCexterior, face). 


partiof (face, door). 

рагі ої face, window). 

par t_of (face, opening). 

por t_of (face, covering). 
par t_of< face, sub_cover ing). 
part_of (face, frame). 
partiof( face, insulation). 
par t_of( face, conmection). 


par t_of (connection, plumbing>. 
par t_of(connection,electric). 
part_of (connection ,heating>. 

par t_of<connection, gas). 


part.ofiwindos,sill». 
par t_of (window case). 
par t_of(sindow, pane >. 


trans_par tof (X,Y) :- partiof(x,V),!. 
irans partofC(X, V5 :- part.oftx,2)D, 


trans_partof¢Z,Y),!. 
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/* Conversion File */ 


conver tscR, feet, B, feet? :- B = 


R. 
conuerts(R, inches,B, inches) :- B = A. 
comver ts(A, feet,B, inches) :- B =A * 12 
cormerts (A, inches ,B, feet) :-- B=A / 12 
conver ts(A, feet,B, yards)? :- B = ñ / 3. 
corverts(A, yards ,B, feet) :-- B= A * 3. 


conuer tCR, Dimensioni, B, Dimension2) :- 


conver tsCR, Dimensioni, B,Dimension22),! . 


conver tCcR, Di mensioni,B,Dimension2) :- 
conver tscR, Dimension 1, X, Dimens ionx?, 
no tcequQq | (D i mens i on 1, Di mens i onx 27, 
corvert{(X, Dimensionx, B, Dimension2). 
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/* Routines File */ 


/* find longest dimension of three passed in */ 
longest dimensionCHt,Htuni ts, Hd, Hduni ts, Dp, Dpuni ts, Len, Htuni ts) :- 
conver tXld , Hduni ts , Hew Jd, Htunits?, 
corver t(Dp , Dpuni ts , Nee. Dp ,Htuni ts), 
eax i Rum CH , Hes Wd, Max), 
nax i eum (Max , Neu Dp,Len?,! . 


moximum( B.R) :- 
В >В,!. 


eoxiaue(A,B,B>. 


/* have match if within .25 inches */ 
aatch(GR, FL Uni ts,B, B-Uni ts, C, C. Dni ts, D, D Dni ts, R, Fl Uni ts, B,B.LDnits) : 
conver t (GR, Rl Uni ts, Heg. A, inches 5, 
conver tCGB , B. Un i ts , New B, inches 5, 
conver t(C, C Uni ts, New. C, inches 5, 
conver tCD, D. Dni ts, New. D, inches), 
((NewD - Hee. C» < 0.25), 
((NewD – Меш С) › – 0.25),!. 


aatchCR, FL ті {є ,В,В. ті іє, С, С Шлі, 0,0 Шлі іс, Я, Я Uni ts, C, C Units) : 
convert (A, R_Uni ts, New, inches), 
conver t CB, B Dni ts, Nes B , inches), 
conver t (C , C. Uni ts, New C, inches), 
conver ti(OD, D. Ln i ts, New. D, inches, 
((New_D - Heg_B) « 0.255, 
((NewD - New.B> > - 0.25),!. 


satch(A,A_Units,B, BUnits,C,C_Units,0,0Unmits,B,BUnits,C,CUnits> : 
conver tA, Ani ts, Nee f, inches), 
conver tCB, B. Ln i ts , Hew B , inches), 
conver tCC, C Uni ts, Nlew C , inches?, 
conver t CD, D. Ln i ts, New. D, inches), 
((Hew.D - Hee .R» « 0.2955, 
((NewD - New.A) > - 0.25),!. 


satchlA, AUnits,B,BUnits,C, C Units, D,D Units, A, AUnits,B,B.Units) :- 
nl,eriteC'Error! Ho match found during raw material calculations. '5,fail. 


/* routine to get member of list */ 


aesber CX, UX|L 1). 
npember(X, IY|L]? :- member (X,L>. 
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/* routine to delete member of list */ 
deleteCX, [1, I1). 

deletecX, IXIL1,L) :- !. 

deleteXX, IVÍL1, (VIM})> :- deletecX,L,M). 


equal(R,B) :- Bs R. 
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APPENDIX D 
| ?- start. 
check for house house! 
check for exterior exterior 
check for roof roof! 
check for face facel! 
check for frame frame! 


grade marks must be clearly visible on all framing 
peabers for inspection 


check for sub_cover sub_cover2 

check for sub_cover sub_cover 1 
sub_cover sub_cover! meets requirements; allowed substitutes are: 
- tar _paper i 
- tar_paper3 

check for cover cover | 

check for face faceiz 

check for frame framez 


grade marks must be clearly visible on al! framing 
members for inspection 


check for sub_cover sub_cover 13 
check for sub_cover sub_cover 14 
sub_cover sub cover 14 meets requirements; al lowed substitutes are: 
- tar_paper 1 
- tar_paper3 


check for cover cover 12 
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for room room! 

for face facet 

for sub cover sub_cover3 
for cover cover2 

for face face2 

for sub.covenr sub_cover4 
for cover cover3 

for face face3 

for sub.cover sub. cover5 
for cover cover4 

for face face4 

for sub_cover sub_cover6 
for cover covers 


for face faces 


ІРІТРІТІТІТІТІНШІ 


for frame frase3 


grade marks must be clearly visible on all framing 
members for inspection 


check for sub_cover sub cover? 
check for cover cover 


approved methods aust be used for building masonry wal ls 
when outside air temperature drops below 40 degrees farenheit 


check for face face6 
check for frame frame4 


grade marks aust be clearly visible on all framing 
eeabers for inspection 


Check for sub_cover sub_covers 
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check for cover cover? 


approved methods must be used for building masonry walls 
when outside air temperature drops below 40 degrees farenheit 


check for window window! 
check for pane pane! 
pane panel passed quality check 
check for sill sill 
check for case casel 
check for face face? 
check for frame frames 


grade marks must be clearly visible on all framing 
meabers for inspection 


check for sub_cover sub cover9 
check for cover covers 


approved methods must be used for building masonry walls 
when outside air temperature drops below 40 degrees farenheit 


check for door door! 
door door! passed - height 
door door! passed - width 
door door 1 passed - depth 

check for face face8 

check for frame frame6 


grade marks must be clearly visible on all framing 
members for inspection 


check for sub.cover sub.cover 10 
check for cover cover9 


approved methods must be used for building masonry walls 
when outside air temperature drops below 40 degrees forenheit 
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check for face faced 
check for frame frame? 


grade marks must be clearly visible on all framing 
members for inspection 


check for sub_cover sub_cover 11 
check for cover cover 10 

check for face facei0 

check for frome írome8 

check for sub_cover sub_cover 12 


check for cover cover 11 
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CORO OR GU Hh og neon m Roh oae d oq. s Uh А РАБ А RIOR I Fo ts 
ж ж 
Production Sequence Report for house | 


- house style is single-room 


and consists of [roofi,exterionr 1, room] 
* * 
s*kokokokskokokskokokokokokokokakokakakakakokikokakskokakakokokakakakoakakakakoókoókakakokókok 


*opokskokokokokokakkokokakokikokakokakakokkokokikakokakikokakokakakakakakokokoókakokakok 
* * 
comment : noreqil for eqch fqce listed 

* * 
etos poca e Deci p e ai pde deje akok — 


А 

| > 

S و‎ 
e ë 


aah 
[i 


7 


R 
Cn 
oo ioe own OF | ооо 


С) Сб) бз I! O = O = @ ! 


: erect foundation and frone 


f EKITS қы KEE CII IAIN ЖС ИСТ С Сф А о 


frames assemble material type: 
frame4 assemble material tupe: 
frame assemble material type: 
frame3 assemble material type: 
frames assemble material type: 
frame? assemble material tupe: 
frame | assemble aterial type: 
frame2 assemble material type: 
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| N 


ЕЖ 


=. | COO OO O © © © © 


concrete Î 


IH 


Кк фео одоо цода оао оодоо 
ж ж 
comment : put door framing In place 

* * 
южо ооо ЭА ЯК ОХ АӘК А ЖА ЖЖ fc 


door 1 assemble material tupe: 
- attach to: face3 
- location relative to 


X coordinate 125 
Y coordinate 0 
Z coordinate 42 


saf kakak 
* * 
comment : put window framing in place 

- ж 
okolokokakakakakokokokakokakakokakak o kokokakokikakakokakoakakakokakokakokakókoókakokakak 


sillt assemble window sill for: 
- attach to: face2 
- location relative to 


X coordinate 96 
V coordinate 0 
2 coordinate 66 


RT оты, Oa iugi, YE Ry aa PES ET n e aic C. ARCU RTE 
* * 
comment : put up exterior siding 

* * 

e r mater cnt omn ipee vig er esie i clesie an e aap a ik 


face? 
face? 
inchas 
inches 
inches 


window! 
face6 


inches 
inches 
inches 


sub_cover 10 assemble material tupe: 
sub. cover Q9 assemb e material tupe: 
sub. cover assemble material type: 
sub_cover ? assemble material type: 
cover 6 assemble material type: 
cover? assemble material type: 
covers assemb |e material tupe: 
cover a assemble material type: 
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shea th_paper 24 
sheath. paper 24 
sheath. paper 24 
sheath. paper 24 
br i ck88 
br i ck88 
br ick88 
br i ck88 


ARORA Rf dF PR A ORO дс 4 qo oo OR 
* * 
comment : put up roof 

* * 
duse potete ox a a oe xe nee sje ape ae eae ae aie a Ne fee 


sub_cover 13 
sub_cover2 
sub. cover 1 
sub. couer 14 
cover 12 
cover Í 


OO ofr оооба koja oF 


* 


comment 
ж 


АСЕКЕ ато eo cene o odo xe GG MR AL OAR CCE одож а. 


sub_cover 11 
sub_cover6 
sub_cover4 
sub. cover 
sub_cover3 


© 


assemble 
assemble 
assemble 
assemble 
assemble 
assemb |e 


assemble 
assemble 
assemble 
assemble 
assemb |e 


material 
aaterial 
material 
mater ial 
material 
material 


: put up faces for each room 


eater ial 
mater ial 
material 
material 
eater ial 


comment : build floor as last step 


comment : put windows in place 


ғ 


a So eno SET CER гас CRM aE INE TLE RIE HORTLE 


шігкісші 


коок dede e deje e expe xpo ЖАС 


£ 


comment 
Ф 


dose; AC, MR gta 8 oko tela: оңко Се расата оак ا ا‎ 


silt 
door 1 


coaplete using pane! 


finish 
finish 


painti? 
paint21 


: put finish on windows and doors 
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woods 
sood8 

tan. paper2 
tar-paper2 
shingle12 
shingle12 


hard soodO9 


case | 


white 


Yet yer p E E POE OR I IU FORCE OEE е жан 


comment : put on door knobs and hinges 
* * 


(op ok ok feof feke aloft ККЕ fe жж oko koko 


door 1 assemble knob 
door assemble hinge 
ооо ооо осокою ооо ооо ж 
* * 
comment : put final paint on faces 
* ж 


4 КО Rr ORR MONDO. Wc Ch ORICA ORG ON асн 


cover 10 paint material type: 
covenr3 paint material tupe: 
covers paint material tupe: 
cover? paint material tupe: 
cover4 paint material type: 
cover 1 1 paint material tupe: 
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round32 
square3in 


painti? 
paint9 
paint9 
paint? 
paintg 
paint21 


Row Materials Report 


| ten 
door 1 
window! 


concrete |! 


tar -paper2 
hardboard32 
hardboard34 
hardboard 78 
hnard_woodS 
shea th_paper 24 
shingle 12 

bri ck88 
paint9 

paint 1? 


paint21 


Cost 
$16 
$30 
$173? 
$3582 
$841 
$211 
$14? 


$200 


$2020 


$4224 


$12 


Units Required 
1 
1 
347.514 
434.14 
6.73333 
1.54776 
1.54722 
0.604444 
75 
0.85027? 
1616 
3673.2 
1.0317 
0.551818 


0.923095 


te efe nee si oi de vie iie np e ет seio deje i sri je sped e sede de visi 


* 


ж 


Total material cost is $13996 


* 


ж 


жулуш а ишн да жрд ЖЕСЕ ААА С а фе форсе 
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Start Raw Materials Report (w/ substitute») 


4 роо gog de jnebode nda si i ja pee o pete oe eode eden perte dede dnt b ode nt eoe 
* * 


sub.coveri: substitute tor paper! for tar paper2 
* * 
жж КЖК kk 


Raw Materials Report 


Item Cost Units Required 
door 1 $16 1 

window | $30 1 
concrete 1 $173? 347.514 
tar paper 1 $504 3.35666 
woods $3582 434. 194 
tar_paper2 $420 3. 36666 
har-dboard32 $211 1.34776 
har-dboard34 $14? 1.54722 
hardboard?8 $200 0.694444 
hard. wood9 $900 79 
sheath.paper24 964 0.850277 
shingle12 $2020 1616 
brick88 $4224 3673.2 
paint9 $8 1. 031? 
paint 1? $4 0.551818 
paint21 $12 0.923095 


паа 1 ожа ак асси gt) Olan істен ассос. 
* * 
Total material cost is $14079 

* * 
— 0— 
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тоң ж пф же aR sR oR oor лү есас RP ron FOO ee REI д. Ж. 
ж ж 
sub_cover 1: substitute tar_papers3 for tar_paper2 

* * 
офок о ж ЖК Зак талдай Инк с ЯС АЯК ЯС ХОК Жак ЖЖ е ос 


Raw Materials Report 


j tem 
door 1 
vindow 1 


concrete | 


tar__paper 3 


tar_paper2 
hardboard32 
har dboar d34 
hardboard 78 
hard_wood9 
shea th_paper 24 
shingle 12 
brick88 
paint9 

paint 1? 


paint21 


Cost 


$16 


$1737 


$370 


$420 


$211 


$147 


$12 


Units Required 
1 
1 
34?.514 
3.36666 
434. 194 
3.36666 
1.94776 
1.54722 
0.694444 
79 
0.85027? 
1616 
3073.2 
1.031? 
0.551818 


0.923095 


ж "ӘЖ а en aod at erie $$ ok guages 


ж 


ж 


Total material cost is $13945 


LI 


ж 


massa a Wu kus Ww 50) жешиңиз жі сө gO ا‎ e 1: 
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mors domes LR So ROR RT SOR RUBE RR hon Rg тех жары ROSS REOR ROO 
ж ж 
sub_cover 14: substitute tar_paper! for tar_paper2 

* * 
ооо ооа ооо ою о окоо о оК 


Row Materials Report 


| ten 
door 1 
© indos 1 


concrete] 


tar -paper2 


tar paper | 
hardboard32 
har-dboar-d34 
hardboard 78 
hard_woodS 
sheath. paper 24 
shingle12 

br ick8s 

paints 

painti? 


paint21 


Cost 


$16 


$1737 


$420 


$211 


$147 


$2020 


$4224 


$12 


Units Required 
1 
1 
347.514 
3. 30666 
434 . 194 
3.30666 
1.94776 
1.94722 
0.694444 
79 
0.85027? 
1616 
3673.2 
1.031? 
0.551818 


0.923095 


Qo dco ome fee OE 


* 


ж 


Total material cost is $1407?9 


* 


ж 


Cose xh xor exco. a ККЖ ОК КАС 
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dmn a a Ае perde tip А og i on eco ese pre tace cert sie dc enr erm erred cjr de 
* * 
sub_cover 14: substitute tar .paper3 for tar paper2 

* ж 
жжке КККК оК КККК К оК ККК Жооок КККК: ЖКК ЖоК ОКК 


Raw Materials Report 


| ten 
door 1 
window 
concrete 


tar paper2 


tar paper 3 
hardboard32 
hardboard34 
hardboard 78 
hard. seod9 
sheath. paper24 
shingle12 
brick88 
paint9 
paint 1? 


paint21 


Cost 
$16 
$30 
$173? 


$420 


$370 
$211 
$14? 


$200 


$12 


Units Required 
1 
1 
347.514 
3.36666 
434 . 194 
3.36666 
1.54776 
1.54722 
0.694444 
75 
0.85027? 
1616 
3673.2 
1.0317 
0.551818 


0.923095 


LIUM p RD Erogo Mplayer yt, eique igi i REAL LERRA, 


* 


* 


Total material cost is $13945 


* 


ж 


Жойтун ні жн қ кк бг офор ijo copo hk oa 
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